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ABSTRACT 


THIS PROGRAM IS DESIGNED TO SEQUENTIALLY TEST ALL 
CONTROL LOGIC FUNCTIONALY OF THE TMO3. 

EACH TEST WILL ATTEMPT TO ISOLATE FAILURES 

TO THE MODULE LEVEL AND PROVIDE PRINTOUT INFORMATION 

WHICH WILL IDENTIFY THE FAILING MODULE. 

THE CONTROL LOGIC TESTS TEST ALL ERROR AND STATUS CONDITIONS AS WELL AS 
ADDRESSING PROTOCOL AND OPERATIONAL LOGIC SEQUENCES. 

THE LEVEL OF FAULT ISOLATION IS POSSIBLE BECAUSE OF 

TMO3 THE STRUCTURE AND ITS MAINiAINENCE MODES. 


REQUIREMENTS (HARDWARE) 


ANY ys PROCESSOR 
8K OF CORE 

CONSOLE TTY 

TMO3 MAGTAPE CONTROLLER 
MASSBUS CONTROLLER (RH) 
TU4S MAGTAPE TRANSPORT 


LOADING PROCEDURE 


USE STANDARD PROCEDURE FOR LOADING BINARY PAPER TAPE. 
STARTING PROCEDURE 


THERE ARE TWO (2) STARTING ADDRESSES THAT MAY BE USED: 
200(8) AND 210(8). 


A. 200(8): STARTING AT THIS ADDRESS WILL CAUSE A PROGRAM 
oh ed oy HEADER TO BE PRINTED BEFORE TESTING 


B. 210(8): STARTING AT THIS ADDRESS WILL NOT PRINT THE 
IDENTIFICATION HEADER AND IS THEREFORE GENERALLY 
TO BE USED FOR RESTARTS RATHER THAN INITIAL START 


NOTE SEE ALSO SECTION 5-CONSOLE SWITCH SETTINGS 
TYPE C TO RESTART PROGRAM (@200) 


SEQ 0003 
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CZTUOA.P11 


4.1 


AUTOMATIC MODE OPERATION 


IF THIS PROGRAM IS LOADED & RUN UNDER AUTOMATIC (CHAIN) MODES 
DEFAULT RESPONSES TO OPERATOR REQUESTS ARE USED, AND THE SOFTWARE 
SWR INVOKED WITH A SWITCH SETTING OF 100000 (HALT ON ERROR). NO 
OPERATOR INTERVENTION IS REQUIRED. 


*tEXCEPTION: IF THIS PROGRAM IS LOADED VIA TMDP CHAIN MODE THE 
PROGRAM WILL NOT EST TMO3 DRIVE #0, TU45 SLAVE #0. 


**NOTE: THIS PROGRAM CONTAINS OPERATOR INTERVENTION TESTS.TO RUN 
THESE TESTS THE PROGRAM MUST BE LOADED IN "DUMP" MODE 
AND SWO9 SET TO 1. 


SAMPLE START AT 200 


**NOTE: DEFAULT RESPONSES ARE SHOWN IN ANGLE BRACKETS <>, 
OPERATOR RESONSES ARE SHOWN IN PARENTHESES (), AND 
MEMORY LOCATIONS CONTAINING THE DEFAULT ARE SHOWN IN 
SQUARE BRACKETS 


IN THIS EXAMPLE THE OPERATOR HAS CHOSEN DEFAULT RESPONSES. 


TO INVOKE THE DEFAULT TYPE (CR). 
PARAMETER REQUEST: <DEFAULT> (RESONSE) LOCATION: 


TMO3-TU45 CONTROL LOGIC TEST= PART I (CZTUOAO) 
***ASSURE TAPE IS AT BOT*** 
TYPE C TO RESTART 


REGISTER START: <172440> (CR) 
VECTOR ADDRESS: <224> (CR) 
TMO3 DRIVE: <O0> (CR) 
TU45 SLAVE: <0> (CR) 
STATIC TESTS ONLY: <O> (CR) 
IF THE SOFTWARE SWR IS INVOKED: 
SWR = <000000> NEW = (CR) 


SEQ 0004 
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CONSOLE SWITCH SETTINGS 


CZTUOA.P11 
3x 


CONTROL : 


1) 


2) 


3) 


43 


CONTROL G < G>; 
INVOKES THE SOFTWARE SWR AND ALLOWS USER TO ENTER SWITCH SETTING 
THE MACHINE WILL THEN TYPE: SWR=XXXXXX NEW= 


WHERE: XXXXXX IS THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER. 


AFTER THE 'NEW=" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 
A) TYPE THE NEW SWITCH SETTING 
B)IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


CONTROL A < A>; 
ALTERNATES SWITCH REGISTER FROM HARDWARE TO SOFTWARE & VICE VERSA 


CONTROL C < C>; 
RESTARTS THE PROGRAM AT 200 


CONTROL U < U>; 
DELETES ALL CHARACTERS TYPED IN RESPONSE TO A REQUEST 


ALL SWITCHES ARE USED (0-15) AND THE NORMAL, OR DEFAULT, RUN 
IS DONE WITH ALL SWITCHES SET TO ZERO (0). 
ALL SWITCHES ARE DYNAMIC AND MAY BE CHANGED AT ANY TIME. 


SW15: 1=HALT ON ERROR 


0=CONT INUE 


SW14:  1=LOOP ON ERROR (SCOPE) 


0=CONTINUE 


SW13:  1=DO NOT PRINT ERRORS 


O=PRINT ALL ERRORS 


SW12:  1=DO CONTINUOUS CYCLE 


O=HALT AT END OF PASS 


SW11:  1=INHIBIT ITERATIONS 
O=ITERATE EACH TEST ITS ASSIGNED AMOUNT 
SW10:  1=HALT AT END OF CURRENT TEST 
O=CONTINUE TO NEXT TEST 
Sw9: 1=DO0 MANUAL ITERVENTION TESTS 
O=INHIBIT MANUAL INTERVENTION 
SW5-0: SELECT INDIVIDUAL TEST ** 0O=DO ALL TESTS 


SEQ 0005 


CZ 
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ERROR PRINTOUTS 


ERROR PRINTOUTS WILL APPEAR IN TWO FORMS ONE FOR THE CONTROL 
LOGIC TESTS AND ANOTHER FOR THE DATA TESTS. 


CONTROL LOGIC PRINTOUTS WILL CONTAIN A HEADER WHICH CALLS 

OUT THE TEST NUMBER, FUNCTION BEING TESTED, AND THE SUSPECT MODULE, 

OR MODULES ON THE FIRST LINE. THE SECOND LINE WILL CONTAIN INFORMATION 
AS TO THE ACTUAL ERROR. BOTH THE EXPECTED RESULT AND THE ACTUAL 

RESULT OF THE TEST WILL BE GIVEN. LINE THREE WILL SHOW THE 

CONTENTS OF THE MAJOR REGISTERS AT THE TIME OF THE ERROR AND 

LINE FOUR WILL PRINT THE ITERATION NUMBER WHEN APPLICABLE. 


DATA TESTS WILL PRINT A HEADER CONTAINING THE TEST NUMBER, 
AND A DESCRIPTION OF THE FUNCTION UNDER TEST. 

FOLLOWING THE HEADER WILL BE A LIST OF THE MAJOR REGISTERS 
WITH THE EXPECTED AND ACTUAL VALUES. ANY BAD DATA WILL BE 
PRINTED (PER CHARACTER) FOLLOWING THE REGISTER INFORMATION OR 
FOLLOWING THE HEADER IF NO STATUS ERRORS WERE ENCOUNTERED. 


EXAMPLES: 


1. THE FOLLOWING EXAMPLE SHOWS A TYPICAL ERROR 
PRINTOUT FOR THE ADDRESS TESTS (LT1-LT3). 


LOGIC TEST 1: DRIVE ADDRESSING (M8939 OR RH) 
io DRIVE 3 EXPT-NOT RECVD 


THIS PRINTOUT SHOWS THAT THE DRIVE ADDRESS (CS2 BITS 2,1,0) 
RESULTED IN THE DETECTION OF NED (BIT 12 OF CS2) FOR DRIVE 
THREE (3) WHEN THAT DRIVE SHOULD BE THERE. THIS ERROR OCCURRED 
ON ITERATION THREE (3). 


2. er ae WILL SHOW A TYPICAL PRINTOUT OF ONE OF THE REGISTER 


LOGIC TEST 7: FC BIT TEST (M8705) 
FC BITS 15-0 EXPT 177777 RECVD 177577 


THIS PRINTOUT SHOWS THAT FRAME COUNT BIT SEVEN (7) WAS 
NOT SET WHEN IT SHOULD HAVE BEEN. NO ITERATION NUMBER 
IS DISPLAYED WHEN RUNNING WITH CONSOLE SWITCH 

TWELVE (12) SET TO A ONE (1). 
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3. THE FOLLOWING IS A TYPICAL PRINTOUT RESULTING FROM BAD 
STATUS DETECTION DURING A MANUAL INTERVENTION TEST (LT14-LT17) 


LOGIC TEST 15: MANUAL STATUS TEST 2 
‘ae. EXPT 100700 RCVD 000700 


THIS SHOWS THAT ON THE FIRST TRY CITER: 0) THE ACTION TAKEN 
BY THE OPERATOR DID NOT RESULT IN THE PROPER STATUS DETECTION 
BY THE HARDWARE (ATA IS NOT SET). 

4. THE FOLLOWING FOUR (4) EXAMPLES SHOW EACH OF THE ERROR TYPES THAT 
CAN BE DETECTED BY ANY OF THE ERROR FORCING TESTS. NOTE THAT ONE OR 
a neg ERROR TYPES COULD BE DETECTED ON A SINGLE EXECUTION OF 

H ° 


LOGIC TEST 24: DPAR — RH) 
oT vy the” wy RCV 


CS2 DS ER AS MR TC 
604260 000000 033726 00000 000100 010600 000000 009000 177712 140300 
THIS MESSAGE SHOWS THAT DPAR (BIT 5 OF ER) DID NOT SET. 


LOGIC TEST 26: FCE (M8939) 
Foy NOT a 


CS2 DS ER AS MR TC 
604260 900000 001376 000000 000100 110600 001000 000001 000000 100300 
THIS MESSAGE SHOWS THAT WHILE FCE (BIT 9 OF ER) —~§ INDEED 
SET, THE COMPOSITE ERROR BIT (BIT 14 OF DS) WAS NOT 
LOGIC TES? 30: DTE (M8906 RH) 
UNEXPTECTED ERROR BITS 
CS1 WC BA FC CS2 DS ER AS MR TC 
144260 002006 006600 000000 001300 150600 030000 000001 000017 100300 
THIS MESSAGE SHOWS THAT WHILE THE PROPER ERROR BIT (DTE: BIT 12 OF ER) IS 
SET, OPI (BIT 13 OF ER) IS ALSO SET AND SHOULD NOT BE. 
LOGIC TEST 32: UNS (M8939) 
NOT RESET BY DRIVE CLEAR 
C$1 WC BA FC CS2 DS ER AS MR TC 
144210 002006 006600 000000 001300 150000 040000 000001 000000 140307 
THIS MESSAGE SHOWS THAT WHILE THE PROPER ERROR BITS WERE SET, THEY 
WERE NOT CLEARED BY A DRIVE CLEAR OPERATION. 


SEQ 0007 
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OPERATION 


THE PROCEDURES FOR OPERATING THIS PROGRAM ARE QUITE 
SIMPLE AND REQUIRE ONLY A FEW STEPS: 


- LOAD ADDRESS 200 OR 210 
2. SET SWITCHES FOR DESI! ED TEST CYCLE 
- PRESS START 


ALL CONSOLE SWITCHES ARE DYNAMIC AND MAY BE CHANGED 

AT ANY TIME. THE NORMAL OPERATING SEQUENCE IS ALL SWITCHES 
DOWN (0). THE TEST WILL TAKE APPROXIMATELY 3 MINUTES TO 
RUN; HOWEVER, IF ITERATIONS ARE INHIBITED (SW11=1) THE TEST 

WILL RUN IN ABOUT 30 SECONDS. THE END OF PASS IS 

ote AB, PRINTOUT STATING END OF PASS, AND THE NUMBER OF 
H e 


SINGLe TEST SELECTION: (SWO-SW5) 


WHEN SWO-SW5 ARE SET TO ZERO (00), THE SCHEDULAR WILL 
EXECUTE ALL TESTS IN SEQUENCE. IF SWO-SW5 ARE SET 
TO SOME SPECIFIC TEST NUMBER THEN THAT PARTICULAR TEST 
ONLY WILL BE EXECUTED UNTIL THE TEST SELECT NUMBER 4 * CHANGED. 
~— YOU WISH TO SELECT A PARTICULAR TEST, SET SW10 T 
A ONE (1) IN ORDER TO STOP AT THE END OF THE CURRENT TEST BEFORE 
SELECTING A DIFFERENT TEST NUMBER. YOU MAY SELECT THAT NUMBER IN 
ANY DIRECTION (HIGHER OR LOWER) BECAUSE EACH TEST IS SELF CONTAINED. 
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8. SUB TEST SUMMARIES 


PURPOSE: VERIFY THE PRESENCE OF TMO3 AT THE ADDRESSES 
Se artian BY THE OPERATOR. TEST OCCURS IMMEDIATELY AFTER DRIVE 


PROGRAMMED SEQUENCE: FOR EACH TMO3 ADDRESS (0-7) THE C1 
REGISTER IS READ, AND THE NON-EXISTANT DRIVE (NED) BIT 

IS CHECKED. NED IS SET WHEN THE TMO3 DOES NOT RESPOND TO 
DEM BY ISSUING TRA. IN THIS TEST, WED IS EXPECTED FOR 
EACH ADDRESS NOT TYPED BY THE OPERATOR. 


LIKELY FAULT LOCATIONS: M5904, CABLE M5903 M8939 
PRINT REFERENCES 


RH-DS BITS (CSRB) 
RH-NED BIT (CSRB) 
MASSBUS CABLE C(DEM,TRA,DS BITS) (MB3) 
DRIVE ADDRESS (MBI2) 
DEM-TRA HANDSHAKE 


LOGIC TEST #2: REGISTER ADDRESSING 


PURPOSE: CHECK THE REGISTER SELECT LINES 


PROGRAMMED SEQUENCE: READ ALL 14 MASSBUS REGISTERS WHICH MAKE UP 
Hes oy eae CHECKING FOR (1) CONTROL BUS PARITY ERROR AND 


LIKELY FAULT LOCATIONS: M5904, CABLE .M5903,M8939,M8905-YB M8933 
PRINT REFERENCE 


C-LINES 

RH REGISTER SELECT 

TMO3S REGISTER SELECT 

MASSBUS REGISTER SELECT LINES 

PARITY TREE 

CPAR,ILR BITS (MB111) 


LOGIC TEST #3: CONTROL BUS 


PURPOSE: VERIFY THAT ALL CONTROL LINES PROPERLY TRANSMIT 
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OWES AND ZEROS. 


PROGRAMMED SEQUENCE: WRITE FC REGISTER AND CHECK CPAR, READ FC AND 
CHECK MCPE, UPDATE DATA, REPEAT. DATA IS ALL O'S, WALKING ‘1° BIT, 
ALL ‘O'S, 2 WALKING ‘1° BITS BEGINNING WITH BIT 0 AND 8 

DATA IS CHECKED ALONG WITH ERROR BITS. 


LIKELY FAULT LOCATIONS: M5904, CABLES .MS903VA,M8939,M8905-VYB M8933 


PRINT REFERENCE 


C-LINES mB1,2,3) 

C-BUS MULTIPLEXERS (MB13,4,5,8) (TCCM7) (MR) 
ERROR BIT (MB111) 

MCPE BIT (PACA) 


LOGIC TEST #4: SLAVE ADDRESSING 


PURPOSE: VERIFY THE FUNCTIONING OF THE SLAVE ADDRESS BITS IN 
THE TAPE CONTROL REGISTER THE SLAVE ADDRESS BUS LINES, 

THE ADDRESS DECODE CIRCUIT IN THE TU4S AND THE SPR BIT. 
TESTI Iii iti tit isi titi iit it lisiisitiiiiiiiticiiitgy 

*I1T IS REQUIRED THAT ONLY ONE SLAVE BE POWERED UP Ene 

*THIS TEST IS RUN. 


ne 3 eo + Ricans, ST OE DT RE 


PROGRAMMED SEQUENCE: THE SLAVE ADDRESS BITS IN THE TAPE 
CONTROL REGISTER ARE LOADED WITH ALL 8 COMBINATIONS AND 
SPR IS CHECKED FOR EACH ADDRESS. 


LIKELY FAULTS LOCATIONS: M8905-YB M8937, CABLE ,M9001 ,M8928 ,M9001YA,M8933 
PRINT REFERENCE 


REGISTER SELECT ashy 

SLAVE ADDRESS BITS (mM 

SLAVE ADDRESS LINES (n8937, 2-2), (LAW6) 
TUSS ADDRESS DECODE (LAW 

SPR BIT (Lawe) (M9001 YA) (TCCR7) 
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LOGIC TEST #5: MAINTENANCE REGISTER BITS 


PURPOSE: TO VERIFY THAT THE VARIOUS BITS OF THE MAINTENANCE 
ot haeaeelen BE WRITTEN INTO AND READ AND OTHERWISE BEHAVE 


PROGRAMMED SEQUENCE: IN THE FIRST SEQUENCE AN INCREMENTING DATA 
WORD (0-37) IS WRITTEN INTO THE MR. WITH THE CONTENTS OF BITS 0-4 
BEING CHECKED AFTER EACH OPERATION. THEN 15(OCTAL) IS WRITTEN 
INTO THE REGISTER WHICH SHOULD PERMIT BITS 7-15 TO BE WRITTEN 
FROM THE CONTROL BUS. THEN THE DATA WRITTEN INTO BITS 7-15 

IS INCREMENTED AND CHECKED. 


LIKELY FAULT LOCATIONS: M8905-Yb 


PRINT REFERENCE 


C-LINES 

MAINTENANCE REGISTER 
M.R. FUNCTION DECODE 
M.R. MULTIPLEXOR 


LOGIC TEST #6: TAPE CONTROL REGISTER BITS 
PURPOSE: TO VERIFY THAT TAPE CONTROL BITS 0-11 CAN BE WRITTEN 
INTO AND READ AND THAT TCW BEHAVES AS EXPECTED: 

PROGRAMMED SEQUENCE: ALL 0°S DATA PATTERN IS WRITTEN TO AND 
READ FROM THE TAPE CONTROL REGISTER. TCW IS CHECKED FOR A 
ONE". THIS, SEQUENCE IS REPEATED WITH ALL “"1" DATA AND AGAIN 


LIKELY FAULT LOCATIONS: M8939,M8905-YB 


PRINT REFERENCE 


TMO3 REGISTER SELECT (MBI2) 
TC FLIP-FLOPS, MULTIPLEXERS (MR6) 


SEQ 0011 
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LOGIC TEST #7: FRAME COUNT BIT TEST 


PURPOSE: TO VERIFY THAT THE FRAME COUNT BITS CAN BE 
te I in AND READ FROM AND ARE NEITHER STUCK AT 0 NOR 
U . 


PROGRAMMED SEQUENCE: DATA IS WRITTEN INTO THE FRAME COUNT 
REGISTER AND READ FROM IT. THE DATA PATTERN IS ALL ZEROS 
FOLLOWED BY ALL ONES FOLLOWED BY ALL ZEROS. 


LIKELY FAULT LOCATIONS: M8939 


PRINT REFERENCE 


TMOS REGISTER SELECT (MBI2) 
FRAME COUNT REGISTER (MB18) 
FRAME COUNT MULTIPLEXERS (MB110) 


LOGIC TEST #10: FUNCTION CODE BIT TEST 


PURPOSE: TO VERIFY THAT THE FUNCTION CODE BITS CAN BE WRITTEN 
ee AND READ FROM AND ARE NEITHER STUCK AT 0 NOR STUCK 


PROGRAMMED SEQUENCE: THE C1 REGISTER IS WRITTEN WITH ALL ZEROS. 
DATA IS CHECKED ON THE 5 FUNCTION CODE BITS (BITS 1-5). 
tig A WRITTEN WITH ONES, CHECK AND REPEAT WITH 


LIKELY FAULT LOCATION: M8939, M8905-YB 


PRINT REFERENCE 


TMO3 REGISTER SELECTION (MBI2) 
FUNCTION CODE FLOPS (MB15) 
FUNCTION CODE MULTIPLEXERS (MR6) 


SEQ 0012 
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LOGIC TEST #11: GO BIT SET, RESET 


PURPOSE: TO VERIFY THAT THE GO BIT CAN BE SET IN A SIMULATED 
READ OPERATION AND CLEARED WITH AN INIT. 


PROGRAMMED SEQUENCE: INIT AND CHECK THAT GO=0. SET UP A 
SIMULATED READ OPERATION BY LOADING A WAM3 15(OCTAL) INTO THE 
MAINTENANCE REGISTER, CLEARING THE FRAME COUNT REGISTER TO 
SET FCS, LOAD 1700 (FORMAT) INTO THE TAPE CONTROL REGISTER, 
SETTING READ COMMAND AND GO BIT. CHECK FOR GO=1. INIT AND 
CHECK THAT GO BIT=0. 


LIKELY FAULT LOCATION: MASSBUS CABLE BC(INIT) ,M8939,M8905-YB 


CIRCUIT PRINT REFERENCE 
FCS MBI8 

SET ILF MB17 

SET NEF MBI7 

GO BIT MBI5 

GO BIT A aici MR6 

SET ILR MBI2 


LOGIC TEST #12: DRIVE READY BIT 


TEST 12 IS AN EXACT REPEAT OF TEST 11 EXCEPT 
THAT DRIVE READY (DRY) IS CHECKED INSTEAD OF 
THE GO BIT. DRY IS SIMPLY GO L MULTIPLEXED ONTO 
THE C-LINES AS BIT SEVEN OF THE STATUS REGISTER. 


PRINT REF TCCM7 


-“—<ceceee _= 


SEQ 0013 
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LOGIC TEST #13: INTERRUPT TEST 


PURPOSE: TO VERIFY THE OPERATION OF THE RH INTERRUPT LOGIC. 


PROGRAMMED SEQUENCE: THE C1 REGISTER IS CLEARED, PRIORITY IS SET, 
THE INTERRUPT ENABLE BIT IS SET AND THE INTERRUPT IS AWAITED. 


LIKELY FAULT LOCATION: 
PRINT REFERENCE 


INTERRUPT CONTROL 
MANUAL INTERVENTION TESTS 14,15,16,17 


PURPOSE: TO TEST FOR THE PRESENCE OF MOL,WRL.DPR,DRY,BOT. 
PROGRAMMED SEQUENCE: THE OPERATOR IS INSTRUCTED TO LOAD THE 
DRIVE WITH A TAPE MINUS THE WRITE ENABLE RING AND PLACE 

THE DRIVE ON LINE AT BOT MOL,WRL.DPR,DRY,BOT ARE CHECKED. 


LIKELY FAULT LOCATION: M8928,SLAVE CABLE, #6933 
PRINT REFERENCE 


LAW6, TCCM7 M8908, M9001YA, YC 
777 Sacaadeias mae teateacbiaass 


TCCM7 
LAW6, TCCM7 ,M8908YA,M8913,YA 


SEQ 0014 
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LOGIC TEST #15: STATUS AT BOT,OFFLINE,LOADED, NO WRITE RING 


PURPOSE: TO TEST ATA,DPR,DRY,SSC 


PROGRAMMED SEQUENCE: OPERATOR IS INSTRUCTED TO TAKE DRIVE 
OFFLINE: ATA,SSC,DPR,DRY ARE CHECKED. 


LIKELY FAULT LOCATION: M8928,M8933,M8939,SLAVE CABLE 


PRINT REFERENCE 


LAWS ,M8913,M8913YA,TCCM7 
MBI13 


LOGIC TEST #16: STATUS AT EOT,ON LINE, LOADED, NO WRITE RING 


PURPOSE: TO TEST EOT,SSC,SLA 

PROGRAMMED SEQUENCE: THE OPERATOR IS INSTRUCTED TO MOVE TO EOT 
AND PLACE THE DRIVE ON LINE. EOT,SSC,SLA ARE CHECKED IN 
ADDITION TO ATA,MOL,WEL,DPR,DRY 


LIKELY FAULT LOCATION: M8928,SLAVE CABLE ,M8933 


PRINT REFERENCE 


LAWS ,M8913,M8913YA,TCCM7 
LAW6, TCCM7 ,M8908YA,M8915YA 
LAWS, TCCM7,M9001YA,YC,M8908 


SEQ 0015 
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LOGIC TEST #17: STATUS AT ONLINE LOADED 


TEST 17 IS EXACTLY LIKE TEST 16 EXCEPT THAT THE DRIVE IS 
REVERSED OFF OF EOT AND THE WRITE ENABLE RING IS INSTALLED. 


RAAT AAAAAAKAAAARAAAAATAERARAARAAARAAAAAEAAERAARAAAEAEEE 


EACH OF THE NEXT 11 TESTS ARE DESIGNED TO VERIFY 
THE ABILITY TO SET SPECIFIC ERROR BITS. 


PARA RAAAAAALARSALALAALAAAAESAAS ALAA AAR AAA ASS SD SO | 


LOGIC TEST #20: ILLEGAL FUNCTION 


PROGRAMMED SEQUENCE: THE WORD CUUNT IS SET TO -1. ALL CODES 
STORED IN THE ILLEGAL FUNCTION TABLE ARE LOADED AND ILF IS 
CHECKED FOR EACH ONE. THEN UNEXPECTED ERRORS ARE CHECKED. 


LIKELY FAULT LOCATION: M8939 


CIRCUIT PRINT REFERENCE 
SET ILF DECODE MBIS,MBI7 
ILF FLOP MBI11 


ILF MULTIPLEXER MB110 


SEQ 0016 


CZ 
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LOGIC TEST #21: REGISTER MODIFICATION REFUSED 


PROGRAMMED SEQUENCE: INIT, SELECT SLAVE AND DRIVE. LOAD 300 

@ TAPE CONTROL REGISTER LOAD WAM3 IN THE MAINTENANCE 

REGISTER. LOAD THE C1 REGISTER WITH A READ COMMAND AND GO 

BIT. ATTEMPT TO WRITE THE FRAME COUNT REGISTER. READ 

ERROR REGISTER. CHECKING FOR RMR. CHECK FOR UNEXPECTED ERRORS 
WAIT FOR ACCL. DELAY. DO EOP CLEAR. 


LIKELY FAULT LOCATION: M8939 


PRINT REFERENCE 


RMR DECODE 
RMR FLOP 
RMR MULTIPLEXER 


PROGRAMMED SEQUENCE: WRITE 20(8) INTO CS2. ENABLING THE 
WRITING OF EVEN PARITY ON MASSBUS. WRITE ALL ONES TO 

FRAME COUNT. RESET PAT. CHECK ERROR REGISTER FOR CPAR CHECK 
FOR OTHER UNEXPECTED ERRORS. 


LIKELY FAULT LOCATIONS: M8939 


PRINT REFERENCE 


MASSBUS PARITY TREE 
CPAR FLOP 
CPAR MULTIPLEXER 
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LOGIC TEST #23: FORMAT ERROR (FMT) 


PROGRAMMED SEQUENCE: AN ILLEGAL FORMAT CODE IS LOADED INTO 
THE TAPE CONTROL REGISTER. WAM3 IS LOADED INTO THE MR 

READ COMMAND AND THE GO BIT IS SET. THE ERROR 

REGISTER IS CHECKED FOR FORMAT ERROR AND UNEXPECTED ERROR 
BITS. THIS SEQUENCE IS REPEATED FOR ALL ILLEGAL FORMAT CODES 


LIKELY FAULT LOCATIONS: M8905-YB,M8906 ,M8939 





PRINT REFERENCE 


FORMAT BITS 

Me aL a 

LF 

ILF MULTIPLEXERS 


LOGIC TEST #24: DATA BUS PARITY ERROR (DPAR) 





PROGRAMMED SEQUENCE: SET UP A WRAP 2 AS FOLLOWS: 

NORMAL FORMAT ----> TAPE CONTROL REGISTER, -10 ----> WORD 
COUNT, -20 ----> FRAME COUNT, WAM2 ----> MAINTENANCE RE- 
GISTER,. LOAD WRITE COMMAND AND GO BIT. SET PAT BIT IN 
CS2. AFTER A DELAY MR IS LOADED 4 TIMES CAUSING 2 DATA 
BUS TRANSFERS. DPAR AND CPAR ARE CHECKED. THEN A CHECK 
FOR UNEXPECTED ERRORS IS MADE MASKING OPI. 


LIKELY FAULT LOCATIONS: DBUS LINES, M8905-YB, M8906 


PRINT REFERENCE 


CLK 
WRT CLK GENERATION 
DPAR FLOP 
DATA BUS PARITY TREE 
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LOGIC TEST #25: NON-EXECUTABLE FUNCTION (NEF) 

PROGRAMMED SEQUENCE: LOAD FC WITH -1. SET WAM 2. SET 
WRITE AND GO. ILF SHOULD SET DUE TO TOO SMALL INITIAL 
FRAME COUNT. CHECK ILF. CHECK FOR UNEXPECTED ERRORS. 


LIKELY FAULT LOCATION: M8939 
PRINT REFERENCE 


NEF FLOP 
NEF MULTIPLEXER 
SET NEF 


LOGIC TEST #26: FRAME COUNT ERROR 


PROGRAMMED SEQUENCE: SET WC TO -10, FC TO -20 WAM3 IN 


MAINTENANCE REGISTER, LOAD WRITE AND GO, DELAY ISSUE MM OR 
CLEAR. CHECK FCE AND CHECK FOR UNEXPECTED ERRORS. FRAME 
COUNT ERROR SHOULD BE SET BECAUSE A WRITE OPERATION WAS 
TERMINATED PRIOR TO A WORD COUNT OVERFLOW. 


LIKELY FAULT LOCATIONS: M8939, MB CABLE, M8933, M8905-YB 
PRINT REFERENCE 


RUN LINE 

EBL PLS 

FCE FLOP 

SHUTDOWN LOGIC 

MAINT. FUNCTION DECODE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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LOGIC TEST #27: ILLEGAL REGISTER 


PROGRAMMED SEQUENCE: IF THE RH HAS ALL MASSBUS REGISTER 
OPEN (MOST SYSTEM IN THE FIELD DON'T), ALL THE ILLEGAL 
REGISTER ADDRESSES ARE READ, CHECKING THE ILR BIT AFTER 
EACH ATTEMPT. 


LIKELY FAULT LOCATIONS: MASSBUSS, M8939 


PRINT REFERENCE 


REGISTER SELECT LINES 
REGISTER SELECT DECODE 
ILR FLOP 


LOGIC TEST #30: DRIVE TIMING ERROR 


THE MAINTENANCE REGISTER IS LOADED WITK A FUNCTION THAT 

IS DESIGNED TO CRIPPLE OCCUPIED. FRAME COUNT REGISTER IS 
CLEARED TO SET FCS LOAD WRITE COMMAND AND GO BIT. CHECK 
FOR DTE. THEN DRIVE IS INITIALIZED. FCS IS SET AND WRP 

3 CODE IS LOADED INTO MR. WRITE COMMAND AND GO BIT ARE 
SET. AFTER DELAY FOR ACCELERATION, THE MR CLOCK IS GENERATED 
AND ANOTHER CHECK IS MADE FOR DTE. FINAL CHECK IS MADE 
FOR ERRORS OTHER THAN OPI. THE FIRST MAINTENANCE REGISTER 
CODE WHICH CRIPPLES THE OCCUPIED RECEIVER CAUSES OCCUPIED 
TO BE ASSERTED AND TESTS THE CIRCUITRY WHICH CHECKS FOR 
OCCUPIED WHEN A DATA TRANSFER COMMAND IS INITIATED. THE 
SECOND TEST UTILIZES THE FACT THAT THE WRP 3 CODE INHIBITS 
THE MASSBUS WCLK RECEIVER CREATING A SITUATION WHERE SCLK 
IS NOT FOLLOWED BY A WRITE CLOCK. 


LIKELY FAULT LOCATIONS: M8939, M8905-YB, M8906, MB CABLES 


PRINT REFERENCES 


DTE FLOP 

CRIPPLE OCCUPIED FUNCTION 
WRP 3 FUNCTION 

PREVIOUS OCCUPIED CHECK 
CHECK FOR WCLK 

MM CLK 
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LOGIC TEST 31: OPERATION INCOMPLETE (OPI) 


SET UP INCLUDES FORMAT, WRP 2 (BIT FIDDLER WRITE), FCS. 
WRITE COMMAND AND GO BIT ARE SET AND THE PROGRAM DELAYS 
FOR OPI. A SECOND TEST INVOLVES SETTING UP WRP 3 AND 
ISSUING A READ COMMAND. ESSENTIALLY THIS TEST UTILIZES 
THE WRAPAROUND CODES TO PREVENT ANY RECORDS BEING DETECTED 
AFTER A READ OR A WRITE COMMAND IS ISSUED. 


LIKELY FAULT LOCATIONS: M8933, M8939 


PRINT REFERENCES 


OPI TIMER 
OPI FLOP 
OPI TIMER CONTROL 


LOGIC TEST 32: UNSAFE (UNS) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


A NON~EXISTANT SLAVE IS SELECTED AND A READ COMMAND IS 
ISSUED. UNSAFE ERROR IS CHECKED. 


LIKELY FAULT LOCATIONS: M8939, M8928, SLAVE CABLE 


PRINT REFERENCES 


UNSAFE FLOP 
SET UNSAFE 
MOL GENERATION 
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LOGIC TEST 33: POSITIONING IN PROGRESS (PIP) 


SET UP DRIVE AND SLAVE ARE SELECTED, FCS IS SET. A SPACE 
COMMAND IS ISSUED AND PIP IS CHECKED. 


LIKELY FAULT LOCATIONS: 8939, M8933 


PRINT REFERENCES 


SPACE FUNCTION DECODE 
PIP GENERATION 
STATUS REGISTER 


LOGIC TEST 34: PHASE-ENCODED STATUS (PES) 


DENSITY CODES 0 - 4 ARE LOADED AND PES IS CHECKED FOR EACH 
CODE. IT IS EXPECTED ONLY FOR DENSITY 4. 


LIKELY FAULT LOCATIONS: M8905-YB, SLAVE BUS, M8928, M8933 


PRINT REFERENCES 


DENSITY BITS 
DENSITY LINES 
PES CIRCUIT 
PES STATUS BIT 
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LOGIC TEST 35: TAPE CONTROL WRITE (TCW) 


SETUP FORMAT AND WRP-3 ARE SET, READ COMMAND IS ISSUED. 
TCW IS CHECKED. DRIVE IS INITIALIZED, TAPE CONTROL REG- 
ISTER IS WRITTEN TO AND TCW IS CHECKED. 


LIKELY FAULT LOCATION: ™8905-YB 


PRINT REFERENCES 


LOGIC TEST 36: FRAME COUNTER STATUS (FCS) 


DRIVE IS INITIALIZED, FCS IS CHECKED, DRIVE IS INITIALIZED, 
FRAME COUNTER IS WRITTEN TO, AND FCS IS CHECKED. 


LIKELY FAULT LOCATIONS: M8939, M8933 


ss es so 8 4 sts Ss ss 


PRINT REFERENCES 


CS BI 
FCS MULTIPLEXER 
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LOGIC TEST 37: ACCELERATION (ACCL) 


DRIVE IS INITIALIZED, FORMAT IS SET AND ACCL IS CHECKED 
FOR wy WAM 3 CODE IS LOADED, READ COMMAND IS ISSUED. 
AFTER A DELAY ACCL IS CHeCKED FOR ZERO. 


LIKELY FAULT LOCATIONS: M8933, M8928 


PRINT REFERENCES 


ACCL BIT, MOTION DELAY COUNTER TCCM3 
CLOCK $C2 


LOGIC TEST 40: PE TAPE MARK (TM) 


DRIVE IS INITIALIZED, WAMO IS SET, WRITE TAPE MARK IS SET. 
AFTER DELAY TAPE MARK BIT IS CHECKED. WAMO MULTIPLEXES 

THE OUTPUT OF THE WRITE DATA GENERATOR ONTO THE RDA LINES. 
THE DATA SYNC MODULES SYNC ON THE DATA AND SEND ENVELOPE 
INFORMATION TO THE TAPE MARK DETECTOR ON M8932. 


LIKELY FAULT LOCATIONS: M8932, M8901, M8933, M8905-YB 
PRINT REFERENCES 


TAPE MARK DETECTOR 

TAPE MARK MULTIPLEXER 
ENVELOPE SIGNALS 

WRITE DATA BUFFER 

RDA MULTIPLEXERS 

WRITE TAPE MARK FUNCTION 
WAMO SIGNAL 
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LOGIC TEST 41: NRZ TAPE MARK (TM VPE, ITM) 


SAME AS TEST 40 EXCEPT NRZ DENSITY IS SELECTED. 
LIKELY FAULT LOCATIONS: M8933, M8934 


PRINT REFERENCES 


WRITE DATA BUFFER 

RSDO MULTIPLEXER 

RDA MULTIPLEXERS 

TM DETECTOR 

ILLEGAL TAPE MARK FLOP 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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CZTUOA.P11 


THE NEXT 5 TESTS CONSISTS OF WRITING ON TAPE USING MAIN- 
TENANCE MODE FUNCTIONS TO FORCE ERROR CONDITIONS TO CHECK 
THE ERROR CHECKING CAPABILITIES. OCCASIONAL ERRORS MAY 
RESULT FROM TAPE DEFECTS. CONSTANT ERROR MAY BE THE 
RESULT OF PROBLEMS WITH ERROR CHECKING CIRCUITRY OR 
PROBLEMS WITH THE DRIVE. DEBUG OF THE PROBLEMS MAY BE 
EASIER USING DATA RELIABILITY OF UTILITY DRIVER. 


LOGIC TEST 42: CYCLIC REDUNDANCY ERROR 


FIRST THE DIAGNOSTIC PERFORMS A WRAPO DESIGNED TO LOAD 
THE CRC CHECKER IN A KNOWN MANNER. CHECK ARE MADE FOR 
LRC ERROR AND THE CONTENT OF CRC REGISTER. THEN A WRITE 
OPERATION IS PERFORMED USING A MAINT. MODE (IICC) WHICH 
INHIBITS THE INITIALIZATION OF THE CRC CHECKER. THE CRC 
CHECKER LOGIC WHICH HAS NOT BEEN CLEARED SHOULD DETECT 

A CRC ERROR. UNEXPECTED ERROR BITS MAY INDICATE PROBLEMS 
WITH THE WRITE OPERATION. 


LIKELY FAULT LOCATIONS: oe ee M8934, GO56, SLAVE CABLE, 


PRINT REFERENCES 


MM FUNCTION DECODE 
CRC CHECK CIRCUIT 


LOGIC TEST 43: LRC 


A WRITE OPERATION IS PERFORMED WITH A MM FUNCTION (INC TMRL) 
WHICH ASSERTS WD(SB) 5L_THRUUGHOUT THE RECORD. ALL ONES 
DATA IS USED SO THAT THE FUNCTION SHOULD NOT INTERFERE 

WITH THE RECORD. THE LRC CHARACTER SHOULD NOT BE EFFECTED. 


IKELY FAULT LOCATIONS: M8505, M8933, M8928, M8934 


PRINT REFERENCES 


MM FUNCTION DECODE 
WRITE LINE DRIVERS 
WRITE HEAD DRIVERS 
LRC CHECKING 


SEQ 0026 
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LOGIC TEST 44: PE CORRECTABLE DATA 


A PE WRITE OPERATION IS PERFORMED USING A FUNCTION WHICH 
WILL GROUND THE BIT STROBE LINE ON BIT 1. THIS SHOULD 
CAUSE THE BIT1 DEAD TRACK FLOP TO ASSERT AND CAUSE COR- 
ooo ant “ie ERROR. THE DEAD TRACK REGISTER IS CHECKED 


LIKELY FAULT LOCATIONS: M™8905-YB, M8901, M8932 
PRINT REFERENCES 


MM FUNCTION DECODE 

BIT STROBE CIRCUIT DS4 

DEAD TRACK FLOP DSS, TCPE2 
DEAD TRACK REGISTER MR4 


LOGIC TEST 45: PE INCORRECTABLE DATA 


REPEAT OF TEST 44, EXCEPT THAT THE MAINT. MODE FUNCTION 
GROUNDS BITS STROBE FOR BITS 1, 2 AND THE WO LINE FOR BIT 


5 IN HELD ASSERTED. INC. DATA AND PCF ERRORS ARE EXPECTED. 


LIKELY FAULT LOCATIONS: M8932, M8901 


PRINT REFERENCE 


INC ERROR, PEF, 


SEQ 0027 
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LOGIC TEST 46: PE FORMAT 


THE MM FUNCTION USED IN THIS TEST INVERTS THE DATA USED 
IN PREAMBLE AND POSTAMBLE OF BIT ONE. 


LIKELY FAULT LOCATIONS: M8932, M8933, M8905-YB 


PRINT REFERENCES 


E . 
WRITE BUFFER 
MM DECODE 


LOGIC TEST 47: FRAME COUNT OVERFLOW 

THIS TEST USES A WRAP2 TO CHECK THE OVERFLOW OF FRAME 
COUNT REGISTER. 

LIKELY FAULT LOCATION: M8939 


FRAME COUNT REGISTER MBI8 


LOGIC TEST 50: NEF WHEN WRITING PE ON NRZ SELECTED SLAVE 


THIS TEST ENSURES THAT WHEN A SLAVE IS IN NRZ MODE A WRITE 
OPERATION WHEN OFF BOT IN PE MODE RESULTS IN A NON-EXECUTABLE 
FUNCTION AND SETS THE NEF BIT IN THE ERROR REGISTER. 


PROGRAM SEQUENCE: 
THE SELECTED SLAVE IS REWOUND AND PLACED IN NRZ MODE AND SPACED 


OFF BOT. A PE WRITE OPERATION IS INITIATED, AND THE NEF BIT IN 
THE ERROR REGISTER IS CHECKED. 


LOGIC TEST 51: NEF WHEN WRITING NRZ ON PE SELECTED SLAVE 


THIS TEST IS THE COMPLEMENT OF LOGIC TEST 50 ABOVE. 


«LIST BIN,LOC,S 
TITLE THO3/TU45 CONTROL LOGIC TEST PART I 
;CZTUOAO 
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7 
7 
7 
7 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
0 
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725 MAY 78 
3J.G. ADAMS/R. J. COLLINS 
;REVISED JUN 1977 BY J. G. ADAMS ; CHANGED MODULE REFERENCES TO 


;TMO3 MODULES 
-MCALL .S$ACT11,.SEOP,SCATCH, SSAVE,SRESTORE ,SCHAIN, SCHNMODE 
-NLIST MC 

-LIST ME 

ENABLE ABS,AMA 


CONSOLE SWITCHESttteteree 


3$W15: 1=HALT ON ERROR 

3 O=CONTINUE 

3$W14: 1=LOOP ON ERROR 

; =CONTINUE 

3$W13: 1=DO0 NOT PRINT ERRORS 

é =PRINT ERRORS 

3SW12: 1=HALT AT END OF PASS 

; =CONTINUOUS CYCLE 

7SW11: 1=INHIBIT ITERATIONS 

3SW10: 

7SW9: =DO MANUAL INTERVENTION TESTS 
=INHIBIT MANUAL INTERVENTION 


DO ITERATIONS 
HALT AT END OF EACH TEST 
:SwO-5: SELECT TEST NUMBER :: OO=ALL TESTS 


o-o-0o- Oo OO 
o 
o 
2 
= 
ie 
mm 


SEQ 0029 
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7TUGS REGISTER Bl TSteeeeeerer 


315 314 313 312 311 :10 :09 ;08 ;07 ;06 ;05 ;04 ;03 ;02 ;01 ;00; 
DOOOUO0 000000000 000000000000 0000000000000000OOOOOOOOOOOOOUOOOOOOL 
:SC : TRE; SACP; SPR; sDNA; PSL; Al?7; :A16; RDY; IE :FUN; FUN; FUN; FUN; FUN; GO ; 


jgadooauo ondbondaondoonc0 co a00300030003000 30000500 


; COUNT F} 
4 ppp nenecatane nin scnt ameammmamecnen cm emenntineT tee 
; BU 


> ADDRESS : 
#0100000 00009000000 00000 1990000 900002 IOI IT 
> COUNT : 
OOOO 000000 00 0000000000000 000 UIQ IOI QOVOIIIVO III III IIE 
:DLT; WCE: UPE ; NED; NEM; PGE ; AX; zMDP: :OR ;1R :CLR;PAT;BAI:U2 ;U1 ;U0 ; 


$0091 000 500000000000 1K OTAGO AITO 
sATA; sERR: PIP; MOL ; sWRL EOT; SPR; DPR; ORY; SSC; sPES; SDN; 108; TMK; ‘BOT; SLA; 


$0000 0000000000000 0000000 TOTTORI IATIOGE 

i CDE; SUNS; :OPI; sDTE; sNEF ; CS sFCE; :NSG; PEF; INC;DAT; FMT; CNT; RAR: ILR; ILF; 
Z ITM; sLRC;VPE;BPE; ;BPE; 

1000000000000 300000000 000 TOOTH ATIGOOOT 


: 3; ATTENTION ; 


; SUMMARY 


11 crema enacamensernenennemenmeneuespmanennenae 
: CH : 
; CHARACTER 

1571 aggeranaianeensacenmmemnarenecenescanencecumace ator 


; BUFFER 

1000000000000 00000010 0000000000000 AIT 
:DB +08 :08 +08 208 :08 :08 208 a WRT; MM > OP :0P ;0P :0P aa 5 

; 4; 1 ; P SCLK;CLK; 4 ; ; 1 

yo d000000000013000000000000 00000000000 S000 GO GGG ROO TOI 
: DRIVE 373 :SLV; : 
; TYPE ee a 

£00000 0000500050005 00000 19000090000 HII 
; NUMBER 

3100000000000 0000000 0000000000 IAI 
sACL; FCS; SAC; ENA; SPR; sDEN; DEN; ‘DEN; FAT; FAT; FMT; SFMT: sEVN: SSN; SSN; SSN; 


s0T ; 4 ; 4 ; 1 
1000000300000 52000000000 G0 HT OGO TIO TODO TIO 


SEQ 0030 
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SREGISTER EQUIVStteteerere 
000000 


000007 


sACT11 HOOK steeeeeeeee 
000764 $SVPC=. ;SAVE CURRENT LOCATION CTR 
000046 .=46 
000046 002502 -WORD SENDAD ;SET LOCATION 46 
000052 -=52 
000052 000000 -WORD 0 :SET LOCATION 52 = 0 
000764 -=$SVPC ;RESTORE LOCATION CTR 


sTTY INTERRUPT VECTOReteeerecer 
000060 .=60 
000060 016664 ~ WORD TTINT ; TTY INTERRUPT HEADER ADDRESS 
000062 000340 -WORD 340 sPRIORITY LEVEL 7 


sSOFTWARE SWITCH REGISTEReteereerece 


USED IF a SWR = 177777 OR NOT AVAILABLE 
000176 000000 SWREG: “WORD 0 SOFTWARE SWITCH REGISTER 


000176 


SSTART ADDRESSteeeeeeese 
000200 .=200 
000200 000137 001330 JMP START ;PROGRAM START 
SRESTART ADDRESSteeeeecere 
000210 .=210 
000210 000137 0062066 JMP ST2 
7TMO3 INTERRUPT VECTORetetereeee 
000224 2224 


000224 016654 MTINT ; TAPE INTERRUPT HANDLER ADDRESS 
000226 000340 340 
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000510 .=510 
sMASS BUS REGISTER EQUIVStttreeterer 


000510 172440 2 172440 


172472 : 172472 
; ILLEGAL FUNCTION CODES 
005405 


036473 


RODRIG a ot ot ot ot © 
WMO DOOnOufwn-o”Oo 


SCONSTANTSeteeererer 


177776 : 177776 PROCESSOR STATUS 
; sSWITCH REGISTER 
: TTY READER STATUS 
TTY READ BUFFER 
;TTY PUNCH STATUS 
: TTY PUNCH BUFFER 
SERIAL NUMBER 
DRIVE TYPE 
; ITERATION AMOUNT 
: o& ; INTERRUPT VECTOR(RH) 
172440 : 172440 STARTING REGISTER ADDRESS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WANA WA AA AAA Ww 
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sFLAGS AND COUNTERSteeeeeerer 
000000 


SSSESESE 


Ww 


WANA 
Seeae 
MFwWwh— 


fo) 
~N 


0 
0 
: § 
: 0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ee SS) 
LSS 


000000 
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000000 


ooooooo°c”eo°9c7eea 


001016 000000 :PASS COUNTER 
sEXPT WRAP STATUSteteeee 
001020 000000 
001022 000000 
001024 000000 
001026 000000 
SCORE DUMP PATTERNStttetee 


001030 000005 


ek ek ke ed “ak a a 2 a ks as od dd 


NNN™N PUTO 


5 
5 
1 
1 
0 
1 
1 
1 
1 
0 


001052 000000 
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LOGIC TEST ENTRY TABLEttttereeee 
000000 TSTTBL: . 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


001224 
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001226 010620 LT321T 
L133 


: WORD TEND 
001326 000051 : WORD 51 ;CONTAINS # OF TESTS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
< 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
‘ 
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-EVEN 
PROGRAM START AND HOUSEKEEPING*tttrerene 


;NOTE: PROGRAM STARTS HERE ON START AT 200 
001330 012706 000500 START: MOV #500,SP SET STACK POINTER 
SAVE ERROR TRAP VECTOR 
sAND VECTOR +2 
000004 . SET NEW VECTOR 
a zAND PSW 
177777 «=—-177204 USE SOFTWARE SWITCH IF HARDWARE 
31S = 177777 
3$ sOTHERWISE USE HARDWARE SWR 
1$: (SP)+,(SP)+ sRESET STACK PTR 
000176 000570 : #SWREG, SUR SET SOFTWARE SWITCH REGISTER 
000006 3$: (SP)+,a#6 RESTORE ERROR TRAP VECTORS 
000004 (SP)+,a#4 
001014 SKAT :CLEAR SKIP ADDRESS TEST FLAG 
CL (PC)+ 3:CLEAR CHAIN INDICATOR 
001416 000000 CHNFLG: 0 ::CHAIN MODE INDICATOR 
3:1/0 = CHAIN/NOT CHAIN MODE 
001420 022737 002502 000042 easy :;BRANCH IF LOADED VIA ACT11 CHAIN MODE 


000042 ees : BRANCH IF IN DUMP MODE 


51$ 
000176 000570 3 #SWREG, SWR :: INVOKE SOFTWARE SWR 
177114 #100000 ,aSwR :;WITH HALT ON ERROR SET 
CHNFLG 3:SET CHNFLG = CHAIN MODE 


000137 002106 TSCD 7:60 TO CHAIN ADDRESS 


AAAI AIAIAIAAIAIAIAIAI AIA RIA AIAI ARI AIA AAI AI AIA AI AIA AIA 


122737 000006 000041 + oat BRANCH IF NOT LOADED VIA TMDP 


022636 #MSG62,R4 ADVISE USER TO REMOVE TMDP FROM 
PC, TTOUT sUNIT UNDER TEST 
#ASG1,R4 
PC, TTOUT PRINT TITLE 
020252 #°#,ASG1 :D0 NOT PRINT TITLE ON RESTART 


#MSG44 ,R4 
REQUEST REGISTER ADDRESS 


PRINT CURRENT ADDRESS 
SET ADDRESS SAVE LOC 
SET SIZE OF RESPONSE 
SET UPPER LIMIT 

SET LOWER LIMIT 

:G0 GET RESPONSE 


REQUEST VECTOR 


;PRINT CURRENT VECTOR 
SET ADDRESS SAVE LOC 
SET SIZE OF RESPONSE 
SET UPPER LIMIT 
SET LOWER LIMIT 
PC,TTR :GO GET RESPONSE 
001632 VECT,RO GET VECTOR 
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012720 016654 #MTINT, (RO)+ LOAD INTERRUPT ADDRESS IN VECTOR 
;LOAD PRIORITY 
GET START OF REGS 
SET NUMBER OF REGS 
000510 GET START OF TABLE 
;BUILD TABLE 
000002 #2,R0 ;BUMP ADDRESS 
R SEE IF DONE 
:1F NOT: BR 
000614 
000077 
CLEAR FLAGS + COUNTERS 


$T1 
022576 ’ REQUEST TMO3 DRIVE # 


GET CURRENT DRIVE # 

sPRINT IT 

TTR ROUTINE RETURNS USER VALUE TO (R5) 
LIMIT RESPONSE 

LIMIT RANGE TO 0-7 


:GET USER RESPONSE 
REQUEST TU45 SLAVE # 


:GET CURRENT SLAVE # 

sAND PRINT IT 

TTR ROUTINE RETURNS RESPONSE TO (R5) 
LIMIT RESONSE TO 1 CHARACTER 
BETWEEN 0 AND 7 


GET USER RESPONSE 


REQUEST STATIC ONLY 
GET CURRENT VALUE 
sAND TYPE IT 
SET ADDRESS OF STATIC FLAG 
SET SIZE OF RESPONSE 
SET UPPER LIMIT 
SET LOWER LIMIT 
017012 PC. TTR ;GET RESPONSE 


AIAIAIAIAIAIAIAIAIDAIAIAIASAIAIAMIMoms 


000500 j 2: #500,SP :SET STACK PTR 
at mE SEG ta 
004737 020110 PC, GTSWR GET SWITCHES 
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052777 
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000100 


177700 
001416 
177777 


000010 


000624 
176274 
010000 


000664 


000624 
000006 


000664 
000010 


000664 
002000 


001054 


002000 
001000 
000740 
176174 
177700 
000001 
001326 


001054 
000742 


176456 


000624 
000664 
176332 
000624 
176310 


176276 


000041 


000664 


176250 
176236 


000742 
000742 
000714 
000714 


176216 


000740 


000742 


MACY11 30(1046) 


8 
NXTSLV: 
B 


N 
13-JUN-78 


#100,aTKS 
WPGFL 
cae 


aSwR,RO 
#177700,R0 
STSCD 


ac 
#10000,aCcS 
1$ 

SLVN 

1$ 

DRVN 

1$ 
#6,0841 
1$ 

SLVN 
#10,SLVN 
NXTDRV 


SLVN,a@TC 
#2000,a0T 


NXTSLV 
ANS oT aa 


#4,LTAD 
LTADD,ITRLP 
#2,1TRLP 


RO 
#TSTTBLLTADD 


RO.LTADD 


3 
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STEST SCHEDULARttteteeere 


SET KEYBOARD IE BIT 
CLEAR WRAP PATRN FLAG 
CLEAR SINGLE TEST FLAG 


BRANCH IF SINGLE 
TEST SELECTED 
: BRANCH IF NOT IN CHAIN MODE 


:: INITIALIZE DRIVE # 

ss INITIALIZE SLAVE # 

3; INIT CONTROLLER 

7; STEP DRIVE # 

zcsEXIT IF ALL DRIVES TESTED 
3:FOR AVAILABILITY 

3;LOAD DRIVE # 

;;ACCESS DRIVE 

;;BRANCH IF DRIVE NON EXISTANT 
7: (NED = 1) 

3:STEP SLAVE # AND BRANCH 
37 1F NOT SLAVE 0 

;;BRANCH IF NOT DRIVE # 0 


7:BRANCH IF NOT TMDP 


i:STEP TO SLAVE # 1 

3 BRANCH IF ALL SLAVES TESTED 
33FOR AVAILABILITY 

3:LOAD SLAVE UNIT # 

;;BRANCH IF SLAVE NOT 

3 PRESENT (SPR = 0) 


SET ITERATION ADDRESS 
;CLEAR PRINT HEADER FLAG 
;SET POINTER TO TEST 

:G0 TO TEST 

SEE IF HALT ON TEST 

:1F NOT: BR 


CLEAR WRAP “ GENERATOR: FLAG 


SE IF SINGLE TEST 

z1F NOT: BR 

:BRANCH IF ALL TESTS DESIRED 
F SO: BR 


il 

SET SINGLE TEST FLAG 
sSEE IF EXCEEDED TESTS 
F SO: BR 


:SET TABLE MODIFIER 
SET TEST POINTER 


SEQ 0039 


POROIPORI ARIPO RI RIA PU RIA RIA RIA ROR APO RPO RIAA AD 
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002546 
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000137 


001416 
022046 
017334 


001016 
017462 


000042 


001416 


010000 176040 
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TEND: 
SDONE: 


R 
SENDAD: 
N 


000001 001014 TENDX: 


001016 
002106 


TSCD1 
CHNFLG 
NXTSLV 
#ASG41,R4 
PC, TTOUT 
PCNTR,R3 
PC,OCTP 
RO 


RO 

1$ 
a#42,R0 
HERE 


PC, (RO) 


CHNFLG 
TENDX 
#10000, aSWR 
TENDX 
#1,SKAT 


PCNTR 
TSCD 


SEQ 0040 
BRANCH IF IN CHAIN MODE 
:STEP TO NEXT SLAVE 
;PRINT END OF PASS 
PRINT PASS NUMBER 
;DELAY WAITING FOR 


:GET ACT11 RETURN ADDRESS 
BRANCH IF NOT ACT11 


;BRANCH IF IN CHAIN MODE 


;SEE IF HALT ON PASS 
:1F NOT: BR 
SET SKIP ADDRESS TEST FLAG 


;BUMP PASS COUNTER 
;RESTART 





ao 
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sLOGIC TEST 1: DRIVE ADDRESSINGttteeeerene 


002552 013737 000624 000700 : DRVN, TEMPS GET DRIVE # TO BE TESTED 
000624 RVN,R1 
001014 S Fe ll 4g ADDRESS TESTS 
000740 :SEE IF SINGLE TEST 
:1F NOT: BR 


LT1Xx 
001000 175762 : tS) eee :BRANCH IF MAN INTERVENTION 


B L NOT SELECTED 
020511 : #ASG2A,R4 
PRINT TEST INSTRUCTIONS 


J PC, INST 
000622 : #MSLT1,EMADDR ;SET HEADER ADDRESS 
M #ASG2 ,R4 
PC, TTOUT sREQUEST DRIVE NUMBER 
tan TTR ROUTINE RETURNS RESPONSE TO (R5) 


GET DRIVE NUMBER 
000674 7SEE IF ANOTHER DRIVE 

IF NOT: BR 

SELECT DRIVE 0 
000010 SET NUMBER OF DRIVES 
000040 175614 : : INIT 
175610 SELECT DRIVE 
175574 aci sACCESS DRIVE 
010000 175576 #10000,aCS SEE IF NED 

LT1B :1F SO: BR 

001000 175636 Sy ea BRANCH IF NOT MANUAL INTERVENTION 
x 


L 
000700 ’ ;SEE IF SHOULD BE NED 
LTIC F NOT: BR 


re | 
B LTIE ELSE GO TO ERROR 
000700 LT1B: SEE IF SHOULD BE NED 


LT1C: 
:1F DONE ALL: BR 
:SELECT NEXT DRIVE 
B 3; CONTINUE 
000001 000716 LTIER: - sFLAG EXPT 


000002 000716 LTIER1: FLAG NOT EXPT 
000672 LTIER2: #WSG3,ERADD FLAG CONDITION 
000712 M #LT1A,SCOLP SET SCOPE ADDRESS 
014704 PC,LTGER :GO PRINT LOGIC TEST ERROR 
B LTIC CONTINUE TEST 
003022 000137 002344 LT1X: TSCD2 RETURN TO SCHED 
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003026 


003226 


000240 


000137 


000040 
000624 
023006 
000510 
000016 
000626 


020000 


003132 
000002 


003150 


000002 
020662 


000002 
020700 


000001 


014704 


016254 
002344 


175462 
175454 
000622 


175410 


175410 


000716 
000672 


000716 
000672 


000716 
000672 
000712 


MACY11 30(1046) 


LT2B: 


LT2C: 


LT2ER1: 


LT2ER2: 


LT2ER3: 
LT2ERG: 


LT2LP: 
LT2X: 


D 
13-JUN-78 


LOGIC TEST 2: REGISTER 


#40, ee 
DRVN,aCS 
#MSLT2,EMADDR 
#C1,R5 


(R1), (R2) 
#20000, acl 


PC,LT2ER1 
R 


e 


LT2c 
PC,LT2ER2 
(R2)+,(R5)+ 
RO 


LT2A 

LT2x 
#2,EXFL 
#ASG4,ERADD 
LT2ERG 


#2, EXFI. 
#MSG5,ERADD 
LT2ERG 
#1,EXFL 
#MSG4,ERADD 
#LT2LP,SCOLP 
PC LTGER 


4 
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ADDRESSINGtexeeeenee 


: INIT 

SELECT DRIVE 

;SAVE LT2 HEADER ADDRESS 

;SET ADDRESS OF FIRST REGISTER 
SET NUMBER OF REGISTERS 

SET START OF REGISTER BUFFER 


READ REGISTER 

SEE IF ERROR 

:1F NOT: BR 

ZELSE GO TC ERROR 1 
SEE IF ILR 

:1F NOT: BR 

ELSE GO TO ERROR 2 
:BUMP ADDRESS 


; CONTINUE FOR ALL REGISTERS 


sFLAG NOT EXPECTED 
:POINT TO CONTROLLER ERROR 
:GO TO ERROR 

sFLAG NOT EXPECTED 
:POINT TO DRIVE ERROR 
:GO TO ERROR 

FLAG EXPECTED 

:POINT TO DRIVE 

SET SCOPE ADDRESS 
:GO PRINT 

sELSE CONTINUE 

RESET STACK 


; LOOP 
:GO SEE IF ITERATIONS 
RETURN TO SCHED 


SEQ 0042 





003232 


003410 


13-JUN-78 09:36 


000240 


000137 


000010 


175220 
020000 


021213 


016012 


021167 
003272 
016012 


000401 
000010 


016254 
002344 
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000622 


175234 


175204 


000672 
000712 


000672 
000712 


E 
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SEQ 0043 


sLOGIC TEST 3: CONTROL BUSttteeetere 


T3: 


L 
LT3IT: #MSLT3,EMADOR 
#1,R1 


LT3A: 


L138: 


LT3C: 


LT3 
#ASG11,ERADD 
#LT3A,SCOLP 
aFC,R2 
PC,LTGER1 
L138 
#"SG10,ERADD 


#L1T3B8,SCOLP 
PC,LTGER1 
3¢ 


8 
LT3SER1: 
M 


8 
LT3ER2: 
La 


LT3X: 


;SET TEST HEADER 
PRESET PATTERN 1 
SET PATTERN CHANGE NUMBER 


:GO INIT 

WRITE TO FC 

SEE IF CPAR (TMO3) 
i1f SO: BR 


READ FC 

"SEE IF MCPE (RH) 
:IF SO: BR 

7 SEE If DONE PATTERN CHANGES 


:1F SO: BR 
"CHANGE PATTERN 
; CONTINUE 


:SET ERROR CODE 
:SET SCOPE ADDRESS 
:GET DATA 

GO DO ERROR 


SET ERROR CODE 


:SET SCOPE ADDRESS 
:GO DO ERROR 


7 SEE IF DONE PATTERN 2 
:1F SO: BR 


:SET PATTERN 2 
SET PATTERN CHANGE NUMBER 


:00 PATTERN 2 
:GO SEE IF ITERATIONS 
RETURN TO SCHEDULAR 
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LOGIC TEST 4: SLAVE ADDRESSINGtttereneeee 
003414 013737 000664 000700 : SLVN, TEMPS 
000664 
001014 + IF Bye ADDRESS TESTS 
NOT 


000740 See TF — TEST 
001000 175120 : #1000, @SWR ;BRANCH IF MAN INTERVETION 


B NOT SELECTED 
021016 : SNSGBA, RG 
J PC, INST PRINT TEST INSTRUCTIONS 
#ASG8,R4 
PC, TTOUT REQUEST SLAVE 
A 


GET SLAVE NUMBER 
000674 SEE IF SLAVE 

:1F NOT: BR 

R SELECT SLAVE 0 

000010 SET NUMBER OF SLAVES 
000040 174760 LT4A: : INIT 
000624 174752 a SELECT DRIVE 
174770 1 SELECT SLAVE 
174760 dT 


:GET 

000700 SEE IF SHOULD HAVE SPR 

LT4B :1F SO: BR 
002000 SEE IF SPR 

LT4D :1F NOT: BR 

B :GO TO ERROR 1 

002000 : SEE IF NO SLAVE PRESENT 
(SPR=0) 


021670 ; 
;PRINT SERIAL NUMBER TAG 


PRINT SERIAL NUMBER 
001000 174740 ;BRANCH IF NOT MANUAL INTERVENTION 


LT4D: 
;1F DONE ALL: BR 
;BUMP SLAVE 
8 L ; CONTINUE 
000001 000716 LT4ER1: - sFLAG EXPT: NOT RECEIVED 


000002 000716 LIT4ER2: #2,EXFL FLAG RECVD: NOT EXPT 
000622 LIT4ERG: WASLT4,EMADDR ;SET LT4 HEADER 
000672 M #MSG9,ERADD SET ERROR CONDITION 
000712 #LT4A,SCOLP SET SCOPE ADDRESS 
014704 PC,LTGER :G0 TO ERROR 
B LT4D :1F NO SCOPE: BR 
002344 : TSCD2 ;RETURN TO SCHED 
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023234 000622 
016344 


000032 


174574 
174570 
177740 


000015 
001000 
174534 
174530 
000140 


000200 


021256 
003734 
016012 


021273 
003774 
016012 


016254 
002344 


000672 
000712 


000672 
000712 
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LTSE: 


B 
LTSER1: 
Ly 


8 
LTSER2: 
M 


LT5X: 


sLOGIC TEST 5: MAINTENANCE REGISTER BIT TESTeeeeeeeece 


#ASLTS,EMADOR 
PC,INIT1 
#32,R0 

R1 


L 
#MSG14,ERADD 
#LT5A,SCOLP 
+ aa 


LT58 
#ASG15,ERADD 
#LT50,SCOLP 
PC,LTGER1 
LTSE 

PC, ITER 
TSCD2 


sSET TEST HEADER 

360 INIT 

:SET LOOP FOR BITS 4-0 
;SET TEST WORD 

;SEND TEST WORD TO MR 
;READ MR 

;MASK BITS 4-0 

;SEE IF EXPT = RECVD 


:1F DONE LOOP: BR 
;BUMP TEST WORD 
CONTINUE LOOP 

SET TEST WORD + WAM 3 
:SET LOOP FOR BITS 15-7 
LOAD AR 

READ AR 

MASK OUT BITS 5,6 
SEE IF EXPT = RECVD 
z1F SO: BR 

ELSE GO TO ERR 2 


:1F DONE LOOP: BR 
BUMP TEST WORD 
CONTINUE LOOP 
SET ERROR CODE 
SET SCOPE ADDRESS 
:G0 TO ERROR 

; CONTINUE 

SET ERROR CODE 
SET SCOPE ADDRESS 
:GO TO ERROR 

; CONTINUE 

:GO SEE IF ITERATIONS 
RETURN TO SCHED 


SEQ 0045 
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1909 
191 


004104 


13-JUN-7 


000240 


000137 


09:36 


023303 
000003 


016344 
174410 
174404 
160060 


000001 
017777 
021321 
004126 
016012 


016254 
002344 


000622 


000672 
000712 
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LT6: 
LT6IT: 


LT6A1: 
LT6A: 
LT6B: 


B 
LT6ER1: 


LT6X: 


H 
13-JUN-78 


#MSLT6,EMADDR 
#3,R0 


R 
PC,INIT1 
a 


R2 
7166000, R2 
Ri, 


R2 
LT6ER1 
RO 
LT6x 
#1,R0 


LT6A1 
#17777,R1 
LT6A 
#MSG18,ERADD 
#LT6B,SCOLP 


PC .LTGER1 
LT6D 


4 
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SEQ 0046 


;LOGIC TEST 6: TC REGISTER BIT TESTeeeeeeeeee 


POINT TO LT6 HEADER 
SET NUMBER OF TESTS 


:GO INIT 

WRITE TC 

;READ TC 

sMASK OUT SAC 

;SEE IF EXPT = RECVD 
;1F NOT: BR 


:1F DONE ALL: BR 
SEE IF RESET TEST 
:1F SO: BR 

:SET TEST WORD 

:bD0 SET TEST 

SET ERROR CODE 
SET SCOPE ADDRES 


:GO TO ERROR 

; CONTINUE 

:GO SEE IF ITERATIONS 
RETURN TO SCHED 
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sLOGIC TEST 7: FRAME COUNT BIT TEST#eeeeeneee 


004220 000240 LT?: 
000003 LT7IT: #3,R0 SET TEST NUMBER 
023352 000622 LT7C: #MSLT7,EMADDR ;SET TEST HEADER 
C R1 :SET TEST WORD 
016344 LT7A: :GO INIT 
174250 R1,aFC +27 ates COUNT 


174244 :RE 
SEE IF EXPT = RECVD 
SEE IF DONE ALL 
:1F SO: BR 
000001 :SEE IF RESET TEST 


O: BR 

177777 ;SET TEST WORD TO -1 

B L ; CONTINUE 
021340 000672 LIT7ER1: #ASG19,ERADD :SET ERROR CODE 
004236 000712 M #LT7A,SCOLP SET SCOPE ADDRESS 
016012 PC,LTGER1 ;GO PRINT ERROR 

B L178 sELSE CONTINUE 
000003 LT7X: #3,R0 RESET TEST AMT 
016254 J :GO SEE IF ITERATIONS 

000137 002344 RETURN TO SCHED 
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sLOGIC TEST 10: FUNCTION CODE BIT TEST#teeneeene 


004334 000240 LT10: 
023421 000622 LTIOIT: WMSLTI0,EMADDR ;SET TEST HEADER 
000003 mM #3,R0 ;SET NUMBER OF TESTS 
LTI0OA1: 1 SET TEST WORRD 
000040 174140 LTI10A: : INIT 
174132 ;SELECT DRIVE 
WRITE C1 
aci,R2 ;READ C1 
177701 . MASK FUNCTION CODE 
: 1,R2 SEE IF EXPT = RECVD 


:1F DONE ALL: BR 
000001 7 SEE If RESET TEST 


:1F SO: BR 

000076 i SET TEST WORD 

B :00 SET TEST 
021357 000672 LT10E1: #MSG20,ERADD :SET ERROR CODE 
004352 000712 mM #LT10A,SCOLP SET SCOPE ADDRESS 
016012 PC,.LTGER1 :GO PRINT ERROR 

B LT108 ELSE CONTINU 
016254 LT10X: :GO SEE IF ITERATIONS 

000137 002344 J RETURN TO SCHED 
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;LOGIC TEST 11: GO BIT SET RESETeeeeeeenee 


000240 LT11: 
023477 000622 LTI1IT: #ASLT11,EMADDR ;SET TEST HEADER 
016344 J C,INIT1 :G0 INIT 
174010 ;READ C1 
000001 ;SEE IF GO=0 


B 
000015 174020 SELECT WAM 3 
C a sASSURE FCS = 1 
174014 sASSURE FMT OK 
173754 7 1 SET READ+GO 
sREAD C1 
000001 SEE IF GO =1 


B 
016344 :GO INIT 
173732 m aci,R2 sREAD C1 
000001 SEE IF GO=0 
;1F SO:BR 


B LTI1E3 ELSE GO TO ERROR 3 
021411 000672 LTI1E1: #MSG21,ERADD SET ERROR CODE 
000001 M #1,R2 SET REVD 
R1 SET EXPT 
004462 000712 #LT11IT,SCOLP SET SCOPE ADDRESS 
016012 PC,LTGER1 :GO PRINT ERROR 
ELSE CONTINUE 


B LT118 
021447 000672 LTIIE2: #ASG22,ERADD SET ERROR CODE 

C R2 ;SET RCVD 
000001 #1,R1 SET EXPT 
004506 000712 #LT11B,SCOLP SET SCOPE ADDRESS 
016012 PC,LTGER1 ;GO PRINT ERROR 

B LT11C ELSE CONTINUE 
021470 000672 LTI1E3: ; saeses ERAS SET ERROR CODE 


SET EXPT 
#1,R2 SET RCVD 
000712 #LT11C,SCOLP SET SCOPE ADDRESS 
PC,.LTGER1 :GO PRINT ERROR 
:GO SEE IF ITERATIONS 
006137 002344 RETURN TO SCHED 


000001 
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;LOGIC TEST 12: DRIVE READY Bl Teeteeeeene 


005074 


000240 


000137 


023544 
016344 
000200 


000015 
173554 
001700 
000071 
000200 


016344 
000200 


021523 
004706 
016004 


021551 
004730 
016004 


021600 


002344 


000622 
173574 
173576 
173572 


173532 
173536 


173522 


000672 
000712 


000672 
000712 


000672 
000712 


LT12C: 


8 
LT12E1: 
4 


B 
LT12E2: 
4 


B 
LT12E3: 
M 


LT12x: 


#ASLT12,EMADDR 
PC, INIT 


#MSG24 ,ERADD 
#LT121T,SCOLP 
PC ,.LTGER2 
LT12B 
#MSG25,ERADD 
#LT12B,SCOLP 
PC .LTGER2 
LTi2c 
#ASG25A,ERADD 
#LT12C,SCOLP 
poh teens 


PC, ITE 
TSCD2 


SET TEST HEADER 
:GO INIT 
SEE IF ORY=1 


7SET WAM3 
sASSURE FCS = 1 
sASSURE FAT OK 
;SET READ+GO 
;SEE IF DRY=0 


3:60 INIT 

sSEE IF DRY=1 

31F SO: BR 

sELSE GO TO ERROR 3 
sSET ERROR CODE 
3SET SCOPE ADDRESS 
:G0 TO ERROR 

; CONTINUE 

7SET ERROR CODE 
;SET LOOP ADDRESS 
3GO PRINT ERROR 


; CONTINUE 
:SET ERROR CODE 


:GO TO ITERATION SUBROUTINE 
RETURN TO SCHED 
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LOGIC TEST 13: INTERRUPT TESTttetereaene 


005000 LT13: RO 
023615 000622 M ogg LF EMADDR ;SET TEST HEADER 
016344 LT1I3IT: PC, INITI :G0 INIT,SELECT DRIVE, SELECT ABOVE 
005172 000670 M #LT13X,RTRN SET RETURN ADDRESS 
173362 acl CLEAR CS1 
173434 aPSw :SET PRIORITY 
000100 173350 B aaah :BIT SET IE 


LT13A: 
B LT13A ;AWAIT INTERRUPT 
000340 173414 LT13€1: #340, aPsw sRESET PRIORITY 
000672 4 #MSG26, ERADD ;SET ERROR CODE 
000712 #LT131T,SCOLP ;SET LOOP ADDRESS 
J PC,LTGER2 3GO PRINT ERROR 
LT13X: PC, ITER 3G0 TO ITERATION SUBROUTINE 
005176 000137 002344 J TSCD2 ;RETURN TO SCHED 
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001000 
000740 
016324 


000040 


005242 
021654 
016012 
016254 
002344 


173360 


000622 


000712 
000672 
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THE NEXT 4 TESTS ARE MANUAL INTERVENTION STATUS TESTS. 
;THE OPERATOR WILL BE REQUIRED TO MANIPULATE THE TU45 
CONTROL PANEL IN ACCORDANCE WITH TTY INSTRUCTIONS. 


sLOGIC TEST 14: STATUS AT BOT ON LINE, LOADED, NO WRITE RINGteeeeerece 


LT14A: 


J 
LTI4IT: 
mM 


LT14X: JSR 
LT14XX: JMP 


#1000, aSWR 
LT14A 


STFLG 
LT14XXx 


INAT 
#MSLT14,EMADDR 
MASG1,R4 


LT14Xx 
#LT141T,SCOLP 
#MSG27,ERADD 
PC,LTGER1 

PC, ITER 

TSCD2 


sSEE IF _INHIB MAN TST 
:1F NOT: BR 

:SEE IF “SINGLE TEST 
z1F NOT: BR 


ELSE GO PRINT INHIB MSG 


SET TEST HEADER 
SET INSTRUCTION ONE 


:G0 DO INSTRUCTION 

INIT, SELECT DRIVE + SLAVE 
SET TEST WORD 

ASSURE MOL,WRL.DPR,DRY,BOT 
CLEAR PE, IF UP 


:1F SO: BR 

:SET LOOP ADDRESS 
SET ERROR CODE 

:GO PRINT ERROR 

:GO SEE IF ITERATION 
RETURN TO SCHED 


SEQ 0052 
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005316 


005426 


032777 


000137 


001000 
000740 
016324 


000040 


005356 


002344 


173244 


000622 


000712 
000672 


MACY11 30(1046) 


sLOGIC TEST 15: STATUS AT BOT, OFFLINE, LOADED, NO WRITE RINGttetereeee 
: SEE IF INHIB MAN TST 
;I1F NOT: BR 


LT1SA: 


J 
LTI5IT: 
M 


LT15X: SR 
LT15XX: JMP 


8 5 
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#1000, aSWR 
LT15A 
STFLG 
LT15XX 


INAT 
#MSLT15,EMADDOR 
MSG2,R4 


15x 
#LT1ISIT,SCOLP 
#"SG27,ERADD 
PC,LTGER1 
PC, ITER 
TSCD2 


7 SEE . “SINGLE TEST 
NOT: BR 


iF 


sELSE 60 PRINT INHIB MSG 
;SET TEST HEADER 


PRINT INSTRUCTION 

:GO INIT, SELECT DRIVE, SLAV 
SET TEST WORD 

sREAD STATUS 

CLEAR PE, IF UP 

SEE OF EXPT=RCVD 


:SET LOOP ADDRESS 
;SET ERROR CODE 

:GO PRINT ERROR 

:GO SEE IF ITERATIONS 
RETURN TO SCHED 


SEQ 0053 
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005432 


005542 


13-JUN-78 09 


032777 


000137 


001000 
000740 
016324 


000040 


005472 
021654 
016012 
016254 
002344 


TEST PART I 
:36 


173130 


000622 


000712 
000672 
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SEQ 0054 


sLOGIC TEST 16: STATUS AT EOT, OFFLINE LOADED, NO WRITE RINGttteeeeeee 


LT16A: 


J 
LT16IT: 
La 


LT16X: JS 
LT16XX: JMP 


#1000, aSWR :SEE IF INHIB MAN TST 
LT16A ;I1F NOT: BR 


; : B 
STFLG SEE IF SINGLE TEST 
LT16XXx IF NOT: BR 
INAT ELSE GO PRINT INHIB MSG 
WASLT16,EMADDR ;SET TEST HEADER 
#MASG3,R4 
PC, INST :GO PRINT INSTRUCTION 
PC,INIT2 sSELECT DRIVE, SLAVE 
#116701,R1 :SET TEST WORD 

R2 ;READ STATUS 

CLEAR PE, IF UP 

SEE IF EXPT=RCVD 

;1F SO: BR 


LT16Xx 3 : 
#LTI6IT,SCOLP ;SET LOOP ADDRESS 
#SG27,ERADD ;SET ERROR CODE 
PC,LTGER1 :GO PRINT ERROR 

PC, ITER :GO SEE IF ITERATION 
TSCD2 RETURN TO SCHED 
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005546 


005656 


ROL LOGIC 
13-JUN-78 


032777 


000137 


TEST PART I 


09:36 


001000 
000740 
016324 


000040 


005606 
021654 
016012 
016254 
002344 


173014 


000622 


000712 
000672 


MACY11 30(1046) 
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SEQ 0055 


;LOGIC TEST 17: STATUS AT ON LINE, LOADEDetteeeneee 


LTI7A: 


J 
LTI7IT: 
M 


LT17X: S 
LT17XX: JMP 


#1000, aSWR SEE IF INHIB MAN TST 
LT17A :1F NO R 


NOT: B 
STFLG ;SEE IF SINGLE TEST 
LT17XX :1F NOT: BR 
INAT ELSE GO PRINT INHIB MSG 
#MSLT17,EMADDR ;SET TEST HEADER 
#MASG4 ,R4 
PC, INST :GO PRINT INSTRUCTION 
PC, INIT2 SELECT DRIVE, SLAVE 
#110701,R1 SET TEST WORD 
R2 ;READ STATUS 

CLEAR PE, IF UP 

; SEE If EXPT=RCVD 
LT17x :1F SO: BR 
#LTI7IT.SCOLP ;SET LOOP ADDRESS 
#MSG27,ERADD SET ERROR CODE 
PC,LTGER1 :YES PRINT ERROR 
PC, ITER :GO SEE IF ITERATIONS 
TSCD2 RETURN TO SCHED 
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ROL LOGIC 
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012737 


000137 


TEST PART I 
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024112 


172564 


026611 
000001 
014676 


014664 


000674 


016254 
015344 
002344 


000622 
000712 


000674 
172570 
172554 


000672 
000716 
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LT20: 


M 
LT20IT: 


LT20A: 


SEQ 0056 


THE FOLLOWING 11 TESTS WILL TEST ALL POSSIBLE ERROR BITS 

BY FORCING THEIR CONDITIONS THROUGH VARIOUS ILLEGAL PROGRAMMING 
;SEQUENCES AND USING THE MAINTENANCE WILL MODES AVAILABLE WITH TMO3 
FOR EACH ERROR CONDITION SET THE APPROPRIATE STATUS WILL BE 
CHECKED. IE: ERR, ATA, SLA, SC ETC. 


sLOGIC TEST 20: ILLEGAL FUNCTION CILF) eeeeeeeree 


#ASLT20,EMADDR ;SET TEST HEADER 

#LT20A,SCOLP :SET LOOP ADDRESS 

#22,R0 SET NUMBER OF ILL CODES 
#ILFT,TEMP1 ;POINT TO START IF TABLE 

PC, INIT :GO INIT, SELECT SLAVE + DRIVE 
#-1,awC SET WC= -1 

#1,R1 SET TEST WORD 

aTEMP1,aci SET ILL CODE 

@ER,R2 READ ER 

R1,R2 ; SEE . or =RCVD 


LT208 IF 

#TMS17,ERADD SET ERROR “ODE 
#1,EXFL SET EXPT FLG 
PC,LTGERO :GO PRINT ERROR 
LT20C 


R1,R2 7 SEE eo ERRORS 
LT20C z1F NOT: BR 

PC,.LTGERS ZELSE PRINT ERROR 

RO SEE IF DONE ALL ILL CODES 
LT20x R 


IF $0: 8 
TEMP1 ;BUMP ADDRESS 
LT20A ; CONTINUE 
PC,ITER :GO SEE IF ITERATION 


PC,DRVCLR 
TSCD2 RETURN TO SCHED 
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sLOGIC TEST 21: REGISTER MODIFICATION REFUSED(RMR) tteeteneee 


006024 012737 024171 000622 LT21: WASLT21,EMADDR ;SET TEST HEADER 
000712 MO #LT211T,SCOLP ;SET SCOPE LOOP ADDRESS 
LT21IT: 1 :GO INIT, SELECT SLAVE, DRIVE 
172470 B SET FORMAT 
172454 SET WAM3 
172422 SET READ+GO 
FC ATTEMPT WRITE TO FC 
SET TEST WORD 


GET ER 
SEE IF EXPT=RCVD 
O: BR 


LT21A IF 
026625 000672 #TMS19,ERADD SET ERROR CODE 
000001 000716 #1,EXFL SET EXPT FLG 
014676 a Name :GO PRINT ERROR 
L 


B 
LT21A: SEE IF UNEXPECTED ERRORS 
B IF NOT: BR 
014664 J PC,.LTGERS ELSE GO PRINT ERROR 
016254 LT21B: PC, ITER :GO SEE IF ITERATION 
040000 M #40000 ,R3 
LT21XA: R3 DELAY FOR ALPHA 
B LT21XA 
014530 PC,EORPA :GO DO EOR CLEAR 
015344 PC,DRVCLR 
000137 002344 TSCD2 RETURN TO SCHED 


172422 
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006170 


012737 


000137 


024225 


172262 


026633 
000001 
014676 


014664 
016254 
015344 
002344 


000622 
000712 


172302 
172272 


172262 


000672 
000716 
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LT22: 
4 
LT22IT: 
B 


sLOGIC TEST 22: CONTROL BUS PARITY (CPAR) teeeeteeee 


WMSLT22,EMADDR ;SET TEST HEADER 
#LT221T,SCOLP ;SET SCOPE LOOP ADDRESS 
INIT, SELECT SLAVE+DRIVE 
;ENABLE EVEN PARITY ON MB 
WRITE TO FC 
SET TEST WORD 
RESET PARITY TO ODD 
;GET ER 


3G 

SEE IF EXPT=RCVD 
LT22A IF SO: BR 
#TAS20,ERADD SET ERROR CODE 
#1, EXFL SET EXPT FLG 
PC,LTGERO :GO PRINT ERROR 
LT22x 


R1,R2 ;SEE IF UNEXPECTED ERRORS 
LT22x If NOT: BR 

PC,.LTGER3 ELSE GO PRINT ERROR 

PC, ITER :GO SEE IF ITERATION 


PC,DRVCLR 
TSCD2 RETURN TO SCHED 


SEQ 0058 
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012737 
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024262 


172136 


026642 
000001 
014676 


014664 
016254 
014530 
015344 
002344 


000622 
000712 


172200 


172160 
172126 


000672 
000716 
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LT23: 
| 
LT23IT: 
8 


#ASLT23,EMADDR 
+ a ts aed 


LT23A 

#TMS21,ERADD 

#1,EXFL 

PC,.LTGERO 
T23x 


PC,LTGERS 
PC, ITER 
PC,EORPA 
PC DRVCLR 
TSCD2 


SEQ 0059 


LOGIC TEST 23: FORMAT ERROR(FMT)teeeeeneee 


SET TEST HEADER 

SET SCOPE ADDRESS 

:GO INIT SELECT DRIVE+SLAVE 
SET ILLEGAL FORMAT 

+h TEST WORD 


READ ER 
SEE IF EXPT=RCVD 
O: BR 


i1F S$ 
SET ERROR CODE 
SET EXPT FLG 


:GO PRINT ERROR 


:SEE IF UNEXPECTED ERRORS 
F NOT: BR 


il 
ZELSE GO PRINT ERROR 
:GO SEE IF ITERATION 


RETURN TO SCHED 
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LOGIC TEST 24: DATA BUS PARITY ERROR(DPAR) teeeeceeee 


012737 024327 000622 LT24: WASLT24,EMADDR ;SET TEST HEADER 
000712 M #LT241T,SCOLP ;SET SCOPE ADDRESS 
000606 LT24IT: #5, 1TAMT 
J PC, INITS :GO INIT, SELECT DRIVE*+SLAVE 
172042 #300,aTC ;SET NORMAL FORMAT 
#UDATA,@BA +H fe 


;SET we 
sSELECT WAM 2 
sSET WRITE+GO 
171754 sFORCE EVEN PARITY 
;SET TEST WORD 
000004 


:DELAY 


000004 mM #4,R0 
000013 171734 : : 4 :CLOCK MR 4 TIMES 


000002 41 uke = 1 BYTE 
171720 4 ELSE GET BYTE 1 
LT24B80: RO SEE IF BYTE 2 
B :1F NOT: BR 
171710 “ ' GET BYTE 2 


LT24C: 


LT2 DELAY 
000040 171664 ;SEE IF DPAR IS SET 
;1F SO: BR 


R1 
177400 #177400,R1 GET LOW BYTE 
000377 7,R4 


R4,R1 GET HIGH BYTE 
000744 T24FL ; 
026650 000672 #TMS22,ERADD 
000001 000716 EXF 


014676 
000744 T24F CLEAR FLAG 


GET ERROR REGISTER 
sMASK OPI 
:SEE IF oo ERRORS 


iif 
J ZELSE éo PRINT ERROR 
171556 LT24x: #20,acs sRESET EVEN PARITY 
JS :G0 DO EOR CLEAR 
4% -DRVCLR :GO SEE IF DRIVE CLEAR OK 


:GO SEE IF ITERATION 
000606 a36 1 TANT 
002344 TSCb2 ;RETURN TO SCHED 
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000137 
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024367 


171462 


006776 
026736 
000001 
014676 


014664 


002344 


000622 LT25: 
LT251T 


000712 
000672 
000716 
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SEQ 0061 


LOGIC TEST 25: NON-EXECUTABLE FUNCTION(NEF )teteeeeere 


#MSLT25,EMADDR ;SET TEST HEADER 
PC, INITS SINIT, SELECT DRIVE+SLAVE 
:SET NORMAL FORMAT 
:SET ITLLEGAL FC 
:SET WAM 2 
[LOAD WRITE+GO 
:SET TEST WORD 


GET ER 

SEE IF EXPT=RCVD 
LT25A :1F SO: BR 
#LT2S5IT,SCOLP ;SET LOOP ADDRESS 
#TMS31,ERADD SET ERROR CODE 


#1, EXFL SET EXPT FLAG 
PC,.LTGERO :GO PRINT ERROR 
LT25x 


R1,R2 i SEE : UNEXPECTED ERRORS 
LT25Xx IF NOT: BR 

PC, LTGERS ELSE GO PRINT ERROR 

PC, ITER ;GO SEE IF ITERATION 


PC,DRVCLR 
TSCD2 RETURN TO SCHED 





TA 
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CzT 3-JUN-7 SEQ 0062 


sLOGIC TEST 26: FRAME COUNT ERROR(FCE) steenneene 


WASLT26,EMADDR ;SET TEST HEADER 
PC, INITS INIT, SELECT DRIVE+SLAVE 


007122 012737 024423 000622 LT26: 

016372 LT26IT: 
C R 
1$: RO 
1$ sAWAIT OPI RESET 

000300 #300,aTC ;SET NORMAL FORMAT 
177770 :SET wC=-10 
177760 SET FC=-20 
000013 sSET WAM 3 
000061 #61,aC1 ;LOAD WRITE+GO 
001000 a ;SET TEST WORD 


23 DELAY 
000025 171314 ;LOAD MM EOR CLEAR 
171310 MR sRESET MR 

000004 


RO 
001000 171264 : SEE IF FCE SET 
$ ;1F SO: BR 


: DELAY 


171246 @ER,R2 :GET ER 
000712 #LT261T,SCOLP ;SET SCOPE ADDRESS 
000672 #TMS28,ERADD 
000716 #1,EXFL SET EXPT FLG 
014676 we :GO PRINT ERROR 

L 


171212 : @ER,R2 GET ERROR REGISTER 
R1,R2 :SEE IF UNEXPECTED ERRORS 
LT26x :1F NOT: BR 
014664 J PC ,.LTGERS ELSE GO PRINT ERROR 
PC, ITER :GO SEE IF ITERATION 
PC ,ORVCLR 
007332 002344 TSCD2 RETURN TO SCHED 





TMO3/TUSS CONTROL LOGIC 
13-JUN-78 


CZTUOA.P11 


007450 
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172400 
007372 


016372 
000002 


000001 
026537 
014704 


016254 
015344 
002344 


000510 


000712 
000622 


171116 


000716 
000672 
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LOGIC TEST 27: ILLEGAL 


LT2?7: 


a 
LT27IT: 
LT27A: 


LT27B: 


LT27xX: 
JSR 
LT27XX: JMP 


#172400,C1 

LT27Xx 

#LT27A,SCOLP 

#ASLT27,EMADDR 
0,R0 


#1,EXFL 
#TMS10,ERADD 
PC,LTGER 

RO 


PC ,DRVCLR 
TSCD2 


SEQ 0063 


REGISTERCILR) teeeeeeene 


SEE IF ADDRESSES OPEN 
;1F NOT: BR 


3SET SCOPE ADDRESS 

3SET TEST HEADER 

7SET NUMBER OF ILR TESTS 
7SET FIRST ILR ADDRESS 
:G0 INIT, SELECT DRIVE+SLAVE 
; ATTEMPT ILR READ 

sSEE IF ILR=1 

;1F SO: BR 

;SET EXPT-NOT RCVD FLAG 
;SET ERROR CODE 

3GO PRINT ERROR 

;SEE IF DONE ALL 

;1F SO: BR 

;BUMP ADDRESS 

; CONTINUE TESTS 

:GO SEE IF ITERATIONS 


RETURN TO SCHED 





TF 
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007454 012737 


007762 004737 
007766 000137 
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026744 


010000 
000001 


170716 


000622 


016224 


000015 
000015 


010000 


000001 
014676 


010000 
170566 
020100 


014664 


002344 


000672 
000622 
000712 
171032 
171012 


170754 
170762 


000716 
170752 


170726 
170674 


170646 
170640 


170614 
000716 
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L130: 


| 
LT30IT: 
B 


#TMS32,ERADD 
#ASLT30,EMADDR 
#LT30IT,SCOLP 
PC, INITS 
#300,aTC 
#10000 ,R1 
#17,amR 

arc 

#61,aC1 
#10000,aER 
LT30A 

#1,EXFL 
PC,LTGERO 


#40000, oR4 
LT30C 

RO 

LT308 
EMADDR ,R4 
PC, TTOUT 
#MSG50,R4 


LT30D 
#10000, aER 
LT30E 

#1, EXFL 
PC.LTGERO 
LT 30x 


PC .LTGERS 
PC, ITER 
PC,EORPA 
PC,DRVCLR 
TSCD2 


SEQ 0064 


sLOGIC TEST 30: DRIVE TIMING ERROReteeeeeeee 


SET ERROR CODE 

SET TEST HEADER 

SET SCOPE ADDRESS 

INIT, SELECT DRIVE + SLAVE 
SET NORMAL FORMAT 


SET TEST WORD 
CRIPPLE OCCUPIED 
sSET FCS 


FC 
;LOAD WRITE+GO 
7 SEE If DTE SET 


:G0 PRINT ERROR 
:GO INIT SELECT DRIVE,SLAVE 


:SET FORMAT 
SET TEST WORD 
SET FCS 

SET WRAP 3 
LOAD WRITE+GO 


;SEE IF ALPHA 
AWAIT ALPHA 


PRINT HEADER 
PRINT ALPHA ERROR 


CLOCK MR 
CLOCK MR 


:DELA 
7 SEE IF DTE SET 


:1F SO: BR 
:SET EXPT FLG 
:G0 PRINT ERROR 


SET TEST WORD 

GET ERROR REGISTER 

MASK OPI AND VPE 

iSEE IF UNEXPECTED ERRORS 
:1F NOT: BR 

ELSE GO PRINT ERROR 

:GO SEE IF ITERATION 

:GO CLEAR GO BIT 


RETURN TO SCHED 
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sLOGIC TEST 31: OPERATION INCOMPLETE (OPI) *eeeeneeee 


007772 012737 024551 000622 LT31: #MSLT31,EMADDR ;SET TEST HEADER 
000712 LT31IT: #LTSIIT,SCOLP ;SET SCOPE ADDRESS 
000672 M @TMSS3A,ERADD ;SET ERROR MSG HOR 
000606 #2, 1TAMT SET REDUCED ITER COUNT 
016372 + Foca INIT, SELECT DRIVE+SLAVE 


$ AWAIT OPI RESET 
000300 170500 SET FORMAT 
170464 3 SET WAM 2 
arc SET FRAME COUNT 
SET TEST BIT (OPI) 
SET RETURN ADDRESS FROM TIMER 
START TIMER 
170412 [LOAD WRITE+GO 
170422 : ;BRANCH WHEN OPI SETS 


3$ 
010370 TIMER(R3) :GO TO TIMER & RETURN TO 2$ ABOVE 
170410 : @ER,R2 GET ERROR REGISTER 

R5,R2 SEE IF UNEXPECTED ERRORS 


4$ :1F NOT: BR 
014664 as ELSE PRINT ERROR 
L 
010462 : PC, TIMOK :GO CHECK TIME FOR OPI TO SET 
102450 LT31x BRANCH IF TIME WAS INCORRECT 


012737 010150 000712 #LTSIA,SCOLP =; SET SCOPE LOOP 
026774 000672 ™ #TMS33B,ERADD :SET ERROR MSG HEADER 
016372 ‘4 PC, INIT3 :GO INIT 


WAIT FOR OPI TO CLEAR 


1$ 
000300 170352 7SET FORMAT 
000015 170336 SET WRAP 3 
010220 SET RETURN ADDRESS FROM TIMER 
0 SET TEST WORD 
010276 START TIMER 
000071 170270 LOAD READ+GO 
170300 : 3 BRANCH WHEN OPI SETS 


010370 TIMER(R3) :GO TO TIMER 
170266 : MO GER ,R2 GET ERROR REGISTER 
a2 Re SEE IF UNEXPECTED ERRORS 
PC LTGERS sELSE +t ERROR 
sEXIT TEST 


LT$1x 

:GO CHECK TIME 

:GO SEE IF ITERATIONS 
PC DRVCLR 


000020 #20, I TART 
010272 cb2 ;RETURN TO SCHED 


sROUTINE TO START THE TIMER, THE TIMER IS AN OSCILLATOR IN THE MAINT~ 
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sENANCE REGISTER (BIT 6) THAT TOGGLES EVERY 56 (10) MICROSECONDS. THIS 
ROUTINE WAITS FOR THE OSCILLATOR TO TOGGLE AND RETURN WITH R3 INDICATING 
THE STATE OF THE OSCILLATOR. 

010276 005000 TIMON: CLR RO CLEAR TICK COUNT 


R1 
000024 #24,R3 ;PRESET INDEX TO TIMER 
000100 170220 oe BRANCH IF OSC CLEAR 


2 
000100 170210 1$: oo WAIT FOR OSC TO CLEAR 
010326 000405 48 sEXIT 


010330 005403 2$: R3 SET INDEX TO TIMER 
010332 032777 000100 170174 38: #100,amR WAIT FOR OSC TO SET 
010340 001774 3$ 

010342 000207 4$: PC 7 RETURN 


THIS ROUTINE TIMES AN EVENT. EACH TIME THE OSCILLATOR BIT CHANGES 
STATE THE TICK COUNT IN R1 @ RO IS INCREMENTED. THE ROUTINE IS CALLED 
USING R3_ AS AN INDEX TO INDICATE THE OSCILLATORS PAST STATE. WHEN 
;THE OSC BIT CHANGES STATE R3 IS NEGATED. 

010344 032777 000100 170162 TIMER1: BIT ,@AR BRANCH IF OSC HAS CHANGED STATE 

010352 BEQ 

010354 JMP ; RETURN 


010370 : NEG R3 :SET INDEX TO OTHER STATE 


000001 A +e ; INCREMENT TICK COUNT 
000003 ;BRANCH IF TIMER OVERFLOWS 
010406 JMP ; RETURN 


. 2 
010414 000100 170112 TIMERO: BIT BRANCH IF OSC SET 
010422 B 

010424 000112 ; RETURN 


010426 013704 000622 TIMOVF : =“wty TYPE TEST HEADER 
J - TTOU 
ERADD ,R4 GET ERROR MSG ADDRESS 
PC, TTOUT + AND TYPE IT 
#TMS33E .R4 
PC, TTOUT TIMER OVERFLOWED' 
000137 010254 LT31XxX :GO EXIT TEST 


sROUTINE TO CHECK IF TIME IS WITHIN LIMITS. IF NOT THE ROUTINE RETURNS 

sWITH THE ‘V" BIT SET. THE LIMITS WERE SLECTED BY DIVIDING THE TIME 

7 IN MICROSECONDS BY 448. THE LOWER LIMIT IS 5,500,000 USECS (5.5 SECS): 
;THE UPPER LIMIT IS 8,500,000 USECS (8.5 SECS). THE 448 IS DERIVED FROM 
hae hd TIMES THE DIVISION BY 8 BY THE TIMOK ROUTINE. 


DIVIDE COUNT BY 8 


000240 


006000 
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CZTUOA.P11 13-JUN-78 09:36 SEQ 0067 
2584 010500 020027 027764 CMP RO,#12276. ;BRANCH IF GREATER THAN LOWER LIMIT 
2585 010504 101016 BHI 1$ 
2586 010506 013704 000622 MOV EMADDR ,R4 GET ERROR MSG HEADER 
2587 010512 004737 017334 JSR PC,TTOUT ; TYPE ERROR MSG HEADER 
2588 010516 013704 000672 MOV ERADD ,R4 ;GET ERROR DESCRIPTOR MSG 
2589 010522 004737 017334 JSR PC, TTOUT 
2590 010526 012704 027007 MOV #TAS33C,R4 : TYPE ‘OCCURED TOO SOON’ 

2591 010532 004737 017334 JSR PC,TTOUT 

2592 010536 000262 SEV SET ‘V" TO INDICATE ERROR 
444 010540 000420 BR 2$ 

2595 010542 020027 045035 1$: CMP RO,#18973. BRANCH IF LESS THAN UPPER LIMIT 
2596 010546 003415 BLE 2$ 

2597 010550 013704 000622 MOV EMADOR ,R4 GET ERROR MSG HEADER 

2598 010554 004737 017334 JSR PC, TTOUT 

2599 010560 013704 000672 MOV ERADD ,R4 

2600 010564 004737 017334 JSR PC, TTOUT : TYPE ERROR MSG HEADER 
2601 010570 012704 027031 MOV #TMS33D,R4 TYPE "OCCURED TOO LATE’ 
2602 010574 004737 017334 JSR PC, TTOUT 

2603 010600 000262 SEV 


2604 010602 000207 2s: RTS PC 


~~ 4 
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024605 
010620 
016372 
000664 


177770 
000300 
167674 
002000 


000071 
044000 
167630 


027074 
000001 
014676 


014664 
016254 
015344 
002344 


000622 
000712 
167662 
167624 


000672 
000716 
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sLOGIC TEST 32: UNSAFE(CUNS) teteeeeene 


LT32: 

4 
LT32IT: 

M 


1$: 


LT32x: 
JSR 
LT32XX: JMP 


#ASLT32,EMADOR 
#LT321T,SCOLP 
PC, INITS 
SLVN,RO 


RO 
#177770,R0 
#300,R0 


#44000,R1 
@ER,R2 
R1,R2 


1$ 

#TMS34,ERADD 
#1,EXFL 
PC,LTGERO 
32 


L 
PC,LTGERS 
PC, ITER 
PC,DRVCLR 
TSCD2 


SET TEST HEADER 

SET SCOPE ADDRESS 

INIT, SELECT DRIVE +SLAVE 
GET SLAVE NUMBER 

SET NONEXISTANT SLAVE 

MASK SLAVE NUMBER 

SET FORMAT 

;SELECT ILLEGAL SLAVE 

sEXIT TEST IF SALVE AVAILABLE 


;LOAD READ+GO 
SET TEST WORD 


;READ ER 
SEE IF EXPT=RCVD 
:1F SO: BR 


SET ERROR CODE 
;SET ERROR CODE 


:GO PRINT ERROR 


SEE IF UNEXPECTED ERRORS 
:1F NOT: BR 

ELSE PRINT ERROR 

:GO SEE IF ITERATIONS 


RETURN TO SCHED 


SEQ 0068 





on at 
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CZTUOA. 13-JUN-78 SEQ 0069 


;THE FOLLOWING 6 TESTS WILL LOOK AT VARIOUS BITS IN THE 
DRIVE STATUS(DS) AND TAPE CONTROL(TC) 

REGISTERS BY FORCING CERTAIN CONDITONS WHICH DO NOT 
REQUIRE TAPE MOVEMENT. 


sLOGIC TEST 33: POSITIONING IN PROGRESS(PIP) seeeeeenee 


010746 012737 024641 000622 LT33: #ASLT33,EMADDR ;SET TEST HEADER 
000712 mM WLT33IT,SCOLP ;SET SCOPE ADDRESS 
LT331T: PC, INITS INIT, SELECT DRIVE+SLAVE 
167540 M #13,amR ;SET WAM 2 
167514 #-1,aFC SET FCS 
167500 #31,aC1 ;LOAD SPACE FORWARD+GO 
020000 167504 #20000, a0S SEE IF PIP=1 
LT33x IF SO: BR 
026567 000672 #TMS14,ERADD SET ERROR CODE 
000716 #1,EXFL SET ERROR CODE 
PC,LTGERO :GO PRINT ERROR 
PC, ITER :GO SEE IF ITERATIONS 
000137 002344 TSCD2 RETURN TO SCHED 





o- 
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012737 026507 000672 
000622 


167440 
167432 
000040 167404 


000002 000716 
011070 000712 
014676 
016406 
000040 167350 


011144 000712 
000001 000716 
014676 
016254 

000137 002344 


SOF ON EN SOF AOOC ON 


0 
1 
1 
2 
2 
3 
4 
4 
5 
5 
6 
7 
7 
0 


F 6 
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SEQ 0070 


sLOGIC TEST 34: PHASE ENCODED STATUS(PES) seeeenee 


LT34: #TMS6,ERADD SET ERROR CODE 
M #MSLT34,EMADDR ;SET TEST HEADER 
LT341T: RO 


#4, 
LT34A1: PC, INITS :GO INIT, SELECT DRIVE+SLAVE 
#3400,aTC SELECT NRZI 
B #1400,aTC 
LT34A: #40,aDS SEE IF PES=0 
B L134B z1F SO: BR 
#2,EXFL :SET RCVD-NOT EXPT 
#LT34A1,SCOLP ;SET SCOPE ADDRESS 
PC,LTGERO ;GO PRINT ERROR 
PC, INITS 
#40,aDS SEE IF PES=1 
IF SO: BR 


LT34x 3 : 
#LT34C,SCOLP ;SET SCOPE ADDRESS 
#1,EXFL ;SET EXPT-NOT RCVD FLAG 
J PC. LTGERO 3;GO PRINT ERROR 
LT34x: S PC, ITER 3GO SEE IF ITERATION 
LT34XX: JMP TSCD2 ;RETURN TO SCHED 
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TMO3/TUSS CONTROL LOGIC 
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CZTUOA.P11 


011204 


011352 


012737 


000137 


TEST PART I 


09:36 


027117 
024731 
016372 
000020 


000300 
000015 
000071 
020000 


000002 


002344 


000672 
000622 


167270 
167300 
167264 
167232 
167256 


000716 
000712 


167216 


000712 
000716 


G 6 
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LT35: 
4 

LT35IT: 

1$: B 


SEQ 0071 


sLOGIC TEST 35: SLAVE ADDRESS CHANGE (SAC) teeneeeeee 


#TMS37,ERADD 
ogg MF aan 


#2,EXFL 
#LT351T,SCOLP 
PC,LTGERO 

PC, INITS 

arc 

#20000 ,,aTC 
LT35Xx 
#LT35A,SCOLP 
#1, EXFL 
PC,LTGERO 


PC, ITER 
TSCD2 


s INIT SELECT DRIVE, SLAVE 
; IF SDWN IS RESET 
;1F NOT: BR 

;SET FORMAT 

7SET WAM 3 

;LOAD READ+GO 

sSEE IF SAC=0 

:1F SO: BR 

7SET RCV-NOT EXPT FLAG 
sSET SCOPE ADDRESS 

+ ae ERROR 


INIT 
;BUMP SLAVE ADDRESS 
sSEE IF SAC=1 

:1F SO: BR 

:SET SCOPE ADDRESS 

;SE EXPT-NOT RCVD FLAG 
3GO PRINT ERROR 


RETURN TO SCHED 





oO 


H 6 
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CZTUOA.P11 13-JUN-78 SEQ 0072 


sLOGIC TEST 36: FRAME COUNTER STATUS(FCS)steneteeee 


011356 012737 024776 000622 LT36: #ASLT36,EMADDR 
000672 MO #TAS38,ERADD ;SET ERROR CODE 
LT361T: PC, INITS INIT, SELECT DRIVE+SLAVE 
040000 167136 B —— oF" ok 7 
011372 000712 #LTS6IT,SCOLP ;SET SCOPE ADDRESS 
000716 #2,EXFL SET RCVD-NOT EXPT 
PC,LTGERO ;GO PRINT ERROR 
PC, INITS : INIT 
arc WRITE TO FC 
040000 167076 #40000,aTC SEE IF FCS=1 
LT36x c1F SO: BR 
011426 000712 #1$,SCOLP SET SCOPE ADDRESS 
000001 000716 #1, EXFL SET EXPT-NOT RCVD 
014676 J PC,.LTGERO ;GO PRINT ERROR 
016254 PC, ITER 
011472 000137 002344 J TSCD2 RETURN TO SCHED 
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011476 


011642 


13-JUN-7 


012737 


025043 


167012 
000001 


166732 


011552 


002344 


000622 
000672 


167016 


000716 
000712 


166756 
166742 
166710 


000712 
000716 


MACY11 30(1046) 


L137: 
4 
LT37IT: 
8 


1 6 
13-JUN-78 13:39 PAGE 73 
SEQ 0073 


LOGIC TEST 37: ACCELERATION(ACCL) #eeeneeeee 


#MSLT37,EMADDR 

#TMS39,ERADD SET ERROR CODE 

PC ,INITS INIT, SELECT DRIVE+SLAVE 
#300,aTC SET FORMAT 

arc ;SEE IF ACCL=1 

LT37A :1F SO: BR 


#1, EXFL 
#LT37I1T,SCOLP ;SET SCOPE ADDRESS 
RO 360 _ ERROR 


INI 

sSET FORMAT 
7SET WAM 3 
;LOAD READ*+G0 
;SET ACCL DELAY 
;SEE IF ACCL=0 
;1F SO: BR 


:DELAY 
SET SCOPE ADDRESS 
PC.LTGERO ;GO PRINT ERROR 


PC, ITER 
TSCD2 RETURN TO SCHED 
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011646 


011762 


13-JUN-7 


012737 


000137 


011662 
025111 
016406 


002300 


000004 


026465 


002344 


000712 
000622 


166640 
166624 
166572 


166572 


000672 
000716 


MACY11 30(1046) 


;LOGIC TEST 40: PE TAPE 


LT40: 

M 
LT40IT: 

C 
1$- 


LT40x: R 
LT4OXX: JMP 


J 6 
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#LT4O0I1T,SCOLP 
#MSLT40,EMADDR 
PC, INIT4 

RO 


RO 

1$ 

get arc 

#7, amr 

#27,aC1 

#100000,R0 
.ads 

LT40x 

RO 


2s 
#TMS3,ERADD 
#1,EXFL 
PC.LTGERO 
PC, ITER 
TSCD2 


SEQ 0074 


MARK (TM) eeeeareeee 
;SET SCOPE ADDRESS 
sINIT, SELECT DRIVE+SLAVE 


DELAY FOR OPI RESET 
SET WAM 0 

LOAD” Unie TAPE MARK+GO 
SET DELA 

:SEE IF THe 1 

IF SO: BR 


: DELAY 


GO PRINT ERROR 
RETURN TO SCHED 
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012737 012002 000712 
000622 


166526 
166474 
166504 
000027 166452 


000004 166454 


026465 000672 
000716 


002000 166422 


026730 000672 
000001 000716 
014676 

000100 166372 


026715 000672 
000001 000716 
014676 


002100 
166336 
014664 
000200 166314 


016254 
015344 


012224 002344 


kK 6 
MACY11 30(1046) 13-JUN-78 13:39 PAGE 75 


LT41: 
M 
LT41IT: 
B 


#LT411T,SCOLP 
#MSLT41,EMADDR 


1$ 
#TMS3,ERADD 
#1,EXFL 

PC ,LTGERO 
#2000 .aER 

3$ 
#TMS30,ERADD 
#1,EXFL 

PC ,LTGERO 

+ a -@ER 
Myr po ERADD 
#1,EXFL 
PC,LTGERO 
LT41Xx 


LT41Xx 
PC,LTGER3 
R2 


#200,aD0S 
2$ 


PCDRVCLR 
TSCD2 


SEQ 0075 


;LOGIC TEST 41: NRZ TAPE MARK (TM, VPE, ITM) teeneeeeee 
;SET SCOPE ADDRESS 


sINIT, SELECT DRIVE,SLAVE 
;SET NRZ*NORMAL FORMAT 
sSET FCS 

sSET WAM 0 

;LOAD WRITE TAPE MARK+GO 


4th IF TM=1 


F SO: BR 


: DELAY 
SET ERROR CODE 
;GO0 PRINT ERROR 


SEE IF ITM=1 
IF SO: BR 
SET ERROR CODE 


;GO PRINT ERROR 
SEE IF VPE=1 


:1F SO: BR 

SET ERROR CODE 

;GO PRINT ERROR 

SET EXPT ERROR BITS 


:GET ERROR REGISTER 

SEE IF UNEXPECTED ERRORS 
z1F NOT: BR 

ELSE PRINT ERROR 

SET TIMER 


SEE IF ORY SET 
z1F SO: BR 
AWAIT DRY 


; DELAY 

:GO SEE IF ITERATIONS 
:GO DO DRIVE CLEAR 
RETURN TO SCHED 
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012230 012737 001700 
014500 
001060 


025225 


000061 
000200 


000200 
166146 
177000 
000777 


014664 


166024 
027111 
000001 
014676 


100200 
165770 


001402 


000776 


000622 
000712 


166212 


166160 
166162 


166150 


166064 


166032 


166034 


000672 
000716 


L 6 
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SEQ 0076 


sTHE FOLLOWING SIX(6) TEST WILL REQUIRE TAPE MOVEMENT. EACH 
sTEST WILL PERFORM A TAPE WRITE WHILE IN A PARITICULAR MAINTENANCE 
;MODE IN ORDER TO FORCE THE REMAINING ERROR CONDITIONS. 


sLOGIC TEST 42: CYCLIC REDUNDANCY ERROR(CRC) teeeeeeeee 


#1700, UDES 3SET UNIT DESCRIPTION = NRZ 
PC, STATIC 3GO SEE IF STATIC ONLY 
#1000,R0 
1$: RO 
1$ ; PAUSE 
#ASLT42,EMADDOR 
tal #LT42IT,SCOLP ;SET SCOPE ADDRESS 
LT42IT: PC, INIT sINIT SELECT DRIVE+SLAVE 
#-10,awc 
#-20,aFC 7SET FC=20 
#WDATA,@BA ;SET BUS ADDRESS 
;SET MM CODE 
;LOAD WRITE+GO 


;SEE IF ORY=1 
:1F SO: BR 
:DELA 

7 SEE IF LRC ERROR ONLY 

IF NOT: BR 

:GET CHECK CHAR 

MASK CRC 
SEE I If + Naa CRC IS CORRECT 

L142B1: 2 PC, LTGER3 zELSE PRINT ERROR SETUP 


#MSG55,R4 
;PRINT SETUP ERROR MSG 
J ;RETURN TO SCHED 
LT42B2: 3:60 INIT 
™ SET WC 
SET FC 
;SET BA 


SET MA 

LOAD WRITE+GO 
SEE IF DRY 
IF SO: BR 


AWAIT DRY 

SEE IF CRC=1 
LT42E :1F SO: BR 
#TMS36,ERADD :SET ERROR CODE 
#1, EXFL 
PC,.LTGERO GO PRINT ERROR 
LT42x 
#100200,R1 SET EXPT ERROR BITS 
@ER,R2 GET ERROR REGIST 


ER 
R1,R2 SEE IF UNEXPECTED ERRORS 
LT42x :1F NOT: BR 
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CZTUOA.P11 


012540 
012544 
012550 
012554 


012560 


13-JUN-78 09 


004737 
004737 
004737 
000137 


012737 


000137 


:36 
014664 
016254 


015344 
002344 


001700 


016422 


000023 


000061 
000200 


000200 


026701 
000002 
014676 


165602 


000177 
177600 


022456 


000000 


014664 
016254 
002344 


000776 


000712 
000622 


165706 


165632 
165634 


165622 


000672 
000716 


MACY11 30(1046) 


LT42x: 


L143: 


M 
LT43IT: 
C 


1$: 


4 
13-JUN-78 


PC, LTGERS 
PC, ITER 
PC ,ORVCLR 
TSCD2 


#1700, UDES 
PC,STATIC 


#LT431T,SCOLP 
yg Se eam 


#WDATA, @BA 
#61,,aCi 


0 
#200,aDS 
LT43D 
RO 
LT43C 
#200,@ER 

43 


LT45E 

#TMS26,ERADD 

#2,EXFL 

PC,.LTGERO 
T43Xx 


LT43F 
#MSG53,ERADD 
PC .LTGER1 


PC .LTGERS 
C,ITER 
TSCD2 


6 
13:39 PAGE 77 


SEQ 0077 


ELSE PRINT ERROR 
D0 ITERATIONS 


RETURN TO SCHED 


sLOGIC TEST 43: LONGITUALINAL REDUNDANCY (LRC) eeeteneeee 


SET UNIT DESCRIPTION = NRZ 
:GO SEE IF STATIC ONLY 
SET SCOPE ADDRESS 


s INIT, SELECT DRIVE+SLAVE 
; DELAY 


SET MM 
SET we 
SET FC 


:SET BA 

LOAD WRITE+GO 
SEE IF DRY 
:1F SO: BR 


AWAIT DRY 
SEE IF LRC=1 


IF NOT: BR 
SET ERROR CODE 
:GO PRINT 


sMASK LRC 

SET EXPT LRC 

:SEE IF te = RCVD 
:1F $0: 

i SET Eanon CODE 

;PRINT ERROR 

:GET ERROR REGISTER 

SET EXPT ERROR BITS 

+1 a8 ewes ee ERRORS 
ELSE PRINT ERROR 


RETURN TO SCHED 
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013010 
013016 


013252 


13-JUN-7 


012737 
004737 
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002300 


000061 
165416 


000021 
000200 


165366 


027102 
000001 
014676 


000002 


165332 
177000 
000002 
022065 
016012 


165276 
100000 


014664 
016254 
015344 
002344 


000776 


000622 
000712 


165442 
165440 


165430 
165416 


165420 
165376 


000672 
000716 


165340 


000672 


MACY11 30(1046) 


LT44: 


LT44IT: 


LT44A: 


LT44A1: 


LT44B: 


LT44C: 


LT44D: 
LT44E: 


LT44F: 


LT44X: 


LT44XX: 


N 6 
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LOGIC TEST 44: PE CORRECTABLE DATA (CORR) ttenteeeene 


#2300, UDES 
PC,STATIC 


#MSLT44,EMADOR 


#LT441T,SCOLP 


#WDATA, aBA 
#61,aci 
RO 


arc 
LT44A1 
RO 


LT44D 
#TMS35,ERADD 
#1, EXFL 
PC,.LTGERO 


#2,accC 
LT44F 


acc,R2 
4177000. R2 


’ 
#ASG42,ERADD 
PC,LTGER1 
LT44Xx 


@ER,R2 

#100000 ,R1 
1,R2 

LT44Xx 

PC .LTGERS 


PC, ITER 
PC,ORVCLR 
TSCD2 


;SET UNIT DESRIPTION = PE 

3GO SEE IF STATIC ONLY 

;SET HEADER 

;SET SCOP 

3GO INITIALIZE 

sSET wC=200 

;SET FC=400 

;SET BA=START OF WRITE BUFFER 
;LOAD WRITE AND GO 


sSEE IF FC=0 
F S$O:BR 


;AWAIT FC=0 
;SET MAINT MODE 


SEE IF ORY 
:1F SO :BR 


AWAIT DRY 
se IF CORR=1 


O: BR 
SELSE SET ERROR CODE 
SET EXPT FLAG 
:GO PRINT ERROR 


;SEE IF DEAD TRACK BIT 1 
z1F SO: BR 


S 
ELSE SAVE RECVD 
MASK OUT CRC 
SAVE EXPT 
SET ERROR CODE 
;GO PRINT ERROR 


GET ERROR REGISTER 
SET EXPT ERROR BITS 
41 a certeate 


S 
ELSE PRINT ERROR 
:GO SEE IF ITERATIONS 
:G0 DO DRIVE CLEAR 
RETURN TO SCHED 


SEQ 0078 


TA 


8 7 
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ZTUOA.P11 13-JUN-78 09:36 SEQ 0079 
2958 

444 sLOGIC TEST 45: PE INCORRECTABLE DATA(INC) teeeeeeeeee 
2961 013256 012737 002300 000776 L145: MOV #2300, UDES SET UNIT DESCRIPTION = PE 
2962 013264 004737 014500 JSR PC, STATIC :GO SEE IF STATIC ONLY 

2963 013270 012737 025375 000622 MOV #ASLT45 ,EMADOR 

2964 013276 012737 013304 000712 MOV #LT451T,SCOLP 

2965 013304 004737 016422 LT45I1T: JSR PC, INIT INIT SELECT DRIVE SLAVE : 
2966 013310 012777 177600 165174 MOV #-200,awCc SET wC=200 

2967 013316 012777 177400 165172 MOV #-400,aFC SET FC=400 

2968 013324 012777 027142 165162 MOV #UDATA,@BA SET BA=START OF WRITE BUFFER 
2969 013332 012777 000061 165150 MOV #61,aC1 ;LOAD WRITE+G0 

2970 013340 005000 CLR RO F 
2971 013342 005777 165150 LT45E: TST arc AWAIT FC=0 

2972 013346 001402 BEQ LT45€1 

2973 013350 005300 DEC RO 

2974 013352 001373 BNE LT45E AWAIT FC=0 

2975 013354 012777 000023 165152 LT45E1: MOV #23,amR SET MAINT CODE 

2976 013362 005000 CLR RO 

2977 =013364 032777 000200 165130 LT45A: BIT #200,a0S SEE IF DRY IS SET 

2978 013372 001002 BNE L145B8 :1F SO: BR 

2979 013374 005300 DEC RO 

2980 013376 001372 BNE LT45A sAWAIT DRY 

2981 013400 032777 000100 165116 LT45B: BIT #100,aER 7 SEE INC=1 

2982 013406 001010 BNE LT45D :1F SO:BR 

2983 013410 012737 026657 000672 MOV #TMS23,ERADD SET ERROR CODE 

2984 013416 012737 000001 050716 MOV #1,EXFL 

2985 013424 004737 014676 JSR PC,LTGERO ;GO PRINT ERROR 

2986 013430 017702 165074 LT45D: MOV acc,R2 :GET CHECK CHAR 

2987 013434 042702 177000 BIC #177000,R2 sMASK CHECK CHAR 

2988 013440 012701 000046 MOV #46,R1 SET EXPT CK 

2989 013444 020102 CMP R1,R2 SEE IF EXPT = RCVD 

2990 013446 001405 BEQ LT45F :1F SO: BR 

2991 013450 012737 022470 000672 MOV #MSG54 ,ERADD 

2992 013456 004737 016012 JSR PC,LTGER1 ELSE GO PRINT ERROR 

2993 013462 017702 165036 LT45F: MOV @ER,R2 

2994 013466 042702 120600 BIC #120600 ,R2 :MASK OPI ,NSG, CORR, AND PEF 
2995 013472 012701 000100 MOV #100,R1 SET EXPT ERROR BITS 

2996 013476 020102 CMP R1,R2 SEE IF UNEXPECTED ERRORS 
2997 013500 001402 BEQ LT45x ;1F NOT: BR 

2998 013502 004737 014664 JSR PC ,.LTGERS ELSE PRINT ERROR 

2999 013506 004737 016254 LT45X: JSR PC,ITER 

3000 013512 004737 015344 JSR PC,ORVCLR 

3001 013516 000137 002344 LT45XX: JMP TSCD2 RETURN TO SCHED 


o— 
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013522 


013754 


012737 


000137 


002300 


164706 
000100 
000100 
000100 
000027 
000200 


000200 
026673 
000001 
014676 
164600 


020500 
000200 


014664 


002344 


000776 


000622 
000712 


164730 
164726 
164716 
164704 
164714 
164704 
164674 
164664 


164642 


164630 


000672 
000716 


MACY11 30(1046) 


C 
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7 
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SEQ 0080 


sLOGIC TEST 46: PE FORMAT ERROR(PEF )teeeeeenee 


LT46: 


M 
LT46IT: 
M 


LT46X: 
JSR 
LT46XX: JMP 


#2300, UDES 
PC, STATIC 


#ASLT46,EMADOR 
#LT461T,SCOLP 


#UDATA,@BA 
#61,aCi 
arc 

LT46A 
#100, amR 


$ 
#100, amR 
2$ 
#100,amR 
3$ 
#27,aMR 
RO 


#200,aDS 
LT46C 
RO 


LT46B 
#200,@ER 
LT46D 
#TMS25,ERADD 
#1,EXFL 
PC,LTGERO 
LT46X 
@ER,R2 
#20500,R2 
#200,R1 
R1,R2 
LT46x 
PC,LTGER3 
PC,ITER 


PC,DORVCLR 
TSCD2 


SET UNIT DESCRIPTION = PE 
:GO SEE IF STATIC ONLY 

SET HEADER 

:SET SCOPE ADDRESS 
INITIALIZE 

SET wWC=10 

SET FC=20 

SET BA=START OF WRITE BUFFER 
;LOAD WRITE+GO 


sAWAIT FC=0 


DELAY 


SET MM CODE TO KILL PEF 
: INIT TIMING LOOP 

;SEE IF DRY SET 

:1F SO: BR 


AWAIT DRY 
+1 IF 4 SET 


;IF SO: B 

SET ERROR TAG 
SET EXPT FLAG 
:GO PRINT ERROR 


GET ERROR REGISTER 

;CLEAR OPI BIT (MAY OR MAY NOT SET) 
;SET EXPT ERROR BITS 

:SEE IF UNEXPECTED ERRORS 

:1F NOT: BR 

ZELSE PRINT ERROR 


RETURN TO SCHED 





a4 
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sLOGIC TEST 47: FRAME COUNT OVERFLOW(M8905-YB) teeeeee 


013760 012737 025513 000622 LT47: #ASLT47,EMADOR ;SET TEST HEADER 
000712 M0 #LT471T,SCOLP ;SET SCOPE ADDRESS 
LT47IT: PC, INIT3S 360 INIT 
164504 | #-10,awWC sSET WC = 10 
#-20,aFC sSET FC = 20 
#1700,aTC ;SET TO NRZ, NORMAL, ODD 
#WDATA,@BA ;SET BUS ADDRESS 
sSET WRAP 2 
164444 ;LOAD WRITE+GO 
#40000, RO 
164466 : atc 7SEE IF ALPHA 
pros ;1F SO: BR 


LT47A AWAIT ALPHA 
000020 3 #20,R0 ;SET CLK CNT 
000040 164440 : #40,aMR 
000040 164432 + CLOCK MR 
LT47C :1F NOT DONE ALL: BR 


164404 aFC,R2 
R1 SET TEST WORD 


R1,R2 ;SEE IF EXPT = RCVD 
LT47Xx IF SO: BR 
021340 000672 #"SG19,ERADD SET ERROR CODE 
000001 000716 #1,EXFL :SET EXPT FLAG 
016012 PC,LTGER1 3GO PRINT ERROR 
016254 ; PC, ITER :GO SEE IF ITERATIONS 
014144 000137 002344 TSCD2 RETURN TO SCHEDULAR 





Oo 


a. 
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;LOGIC TEST 50: NEF WHEN WRITING PE ON NRZ SELECTED SLAVE 


012737 025563 000622 LT50: WMSLTSO,EMADDR ;SET TEST HEADER 
000712 M #LTSOIT,SCOLP 
LTSOIT: PC, INITS SET SLAVE = NRZ 
B #3400,aTC CLEAR DENSITY BITS 
#2300,aTC SET DENSITY = PE 
#-10,awCc SET WORD COUNT 
#-20,aFC ;SET FRAME COUNT 
#WDATA,@BA ;SET BUS ADDRESS 
#13,aMR SET WRAP 2 
000061 164246 #61,aC1 ;LOAD WRITE COMMAND 


004000 #4000,R1 SET EXPECTED RESULT 
164244 2 :GET ERROR REGISTER 
;BRANCH IF NEF BIT SET 


000001 000716 . :SET EXPECTED FLAG 

014676 wae PRINT ERROR 
LT50Xx 
R1,R2 :BRANCH IF NO UNEXPECTED ERROR 
LT50x BITS WERE SET 

014664 J PC,.LTGERS PRINT ERROR MSG 

016254 : PC,ITER SITERATE TEST 

015344 J =F + tea sRESET DRIVE 


014320 000137 002344 JMP TSCD 
LOGIC TEST 51: NEF WHEN WRITING NRZ ON PE SELECTED SLAVE 


014324 012737 025643 000622 LT51: #MSLT51,EMADDOR ;SET ERROR MSG HEADER 
000712 #LTSIIT,SCOLP ;SET SCOPE LOOP ADDRESS 
LTS1IT: PC, INIT4 SET SLAVE = PE 

164170 B #2300,aTC ;CLEAR DENSITY BITS 
#1300,aTC SET DENSITY = NRZ 
#-10,aWC SET WORD COUNT 
#-20,aFC SET FRAME COUNT 
#WDATA,@BA SET BUS ADDRESS 
#13,aMR SET WRAP 2 

000061 164072 #61,aC1 SET WRITE COMMAND AND GO 


004000 #4000,R1 SET EXPECTED RESULT 
164070 R,R2 GET ERROR REGISTER 
;BRANCH IF NEF SET 


1$ 
000001 000716 . SET EXPECTED FLAG 
014676 ete PRINT ERROR MSG 


:BRANCH IF NO UNEXPECTED 
ERROR BITS WERE SET 
PC,LTGERS 
; PC, ITER ITERATE TEST 
014470 004737 PC,DRVCLR CLEAR DRIVE 
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RETURN TO SCHEDULER 


SEQ 0083 
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001012 


002344 
001006 
014526 000207 


STFLG 
1$ 


STATC 
1$ 
(SP)+ 
TSCD2 
RDRVF 
PC 


G 
13-JUN-78 
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sSTATIC TESTS ONLY SUBROUTINEt#erteeee 
014500 005737 000740 STATIC: 


sSEE IF _— TEST ONLY 


:IF SO: B 

:SEE IF STATIC ONLY 
:1F NOT: BR 

; RESET STACK 

;RETURN TO SCHEDULAR 


;RETURN TO TEST 


SEQ 0084 
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END OF RECORD FORCE SUBROUTINE**+*** 


014530 017700 164000 :GET MAINT REG 
B ;CLEAR CURRENT OP CODE 
;SET EOR CLEAR OP CODE 


:D0 EOR 
000037 163756 3 :CLEAR EOR AND MM 


000002 M 
000001 163716 SEE IF GO GONE 
B :1F SO: BR 


AWAIT GO RESET 


EORP1 
020000 163756 ;SEE IF ERROR PRINT INHIBIT 
, EORP2 :1F SO: BR 
000620 :SEE IF — HEADER 


3if $0: 8 
000622 EMADDR,R4 
J PC, TTOUT ;PRINT HEADER 
EORPIA: #WMSG31,R4 
PC, TTOUT ;PRINT EOR GO BIT ERROR 
100000 163720 #100000,aSwWR ;SEE IF HALT ON ERROR 
EORP2 ;IF NOT: BR 


000676 TEMP2 ;CLEAR FLAG 
014662 000207 PC ; RETURN 
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000716 
022427 
000001 


000666 
020000 


000620 


000622 
017334 
000001 
000672 
017334 
000746 


017462 
000716 


020720 
000001 


020737 
017334 
000666 
000746 


000744 
027542 


017334 


017452 
015210 
004000 


021311 
01733¢ 
000702 
017462 
163416 


000666 
020000 


000672 
000746 


163650 


000620 


000716 


163444 


163376 


. f 
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LOGIC TEST ADDRESSING ERROR SUBROUTINE *#+exeneee 


LTGER3S: EXFL 

mM #MSG51,ERADD 
LTGERO: #1, ADDFL 
LTGER: 


:SET NO ADDRESS FLAG 


PFLG :CLEAR PRINT FLAG 
4° popes :SEE IF _SHOULD PRINT 
LTGX 


B IF NOT: BR 
LTGA: HDRFL sSEE IF “PRINTED HEADER 
B 


LTGA1 IF SO: 


EMADDR ,R4 
J PRINT TEST HEADER 
LTGA1: . SET HEADER FLAG 


PRINT CONDITION ERROR 


;PRINT ADDRESS 
:1F NO STATUS: BR 
sEXPT-NOT RCVD 


;RCVD-NOT EXPT 
;PRINT STATUS 


;SEE IF ADD TST 
:1F SO: BR 
SEE IF TEST 24 


: IF NOT: BR 
#WMSG27,R4 
PC, TTOUT :PRINT DATA TAG 


#MSG12,R4 
PRINT EXPT TAG 
PRINT EXPT 
PRINT RCVD TAG 
:GET RCVD 
J PRINT RCVD 
LTGCO: PRINT REGISTERS 
LTGD: #4000, aSwWR 
LTGX 
#MSG16,R4 
PRINT ITERATION 


:1f NOT STOP ON ERROR: BR 


71F PRINTED: BR 


LTGXX 
#20000, aSwR 
LTGA 


SEQ 0086 
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015174 005037 000746 
015200 005037 000716 
015204 000137 016224 


015210 000240 
022252 


017452 
015342 000207 


ie 
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SEQ 0087 


LTGXX: CLR ADDFL ; CLEAR ADDRESS FLAG 
CLR EXFL 
JMP SCOPE 


; SUBROUTINE TO PRINT MAJOR REGISTERS*#etenenne 


#MSG46,R4 
PRINT REGISTER HEADER 


PRINT REGISTERS 


PC 





TA 
CZ 
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sDRIVE CLEAR SUBROUTINEttteeeeee 


015344 000240 DRVCLR: 
040000 M on 


DCD: 
DCD ; DELAY 
000666 PFLG 
015600 PC,ATIN 3GO SEE OF ATTN SET 
000011 163114 #11,aC1 ; ISSUE DRIVE CLEAR 


RO 
000200 163116 : #200,aDS SEE IF DRY 
DCAO 


RO 
B DCA WAIT FOR DRY 
040000 163102 DCAO0: . > pe te :SEE IF ERR RESET 


:1F NOT: BR 
163076 + ae ERROR REGISTER RESET 
163066 SEE IF ATA RESET 
:1F NOT: BR 
000001 7 SET TEST BIT 
000624 GET DRIVE NUMBER & BRANCH 
occ s1F DRIVE 0 
:POSITION TEST BIT PER DRIVE NUMBER 
sSEE IF _DON NE 
: C :1F NOT: BR 
163044 : SEE IF "ATTEN IS RESET 
cE 7; 1F NOT: BR 
015464 000207 RETURN 


015466 000240 


D 
020000 163072 . ;SEE IF ERROR PRINT INHIBIT 
DCEX :1F SO: BR 
000620 :SEE IF — HEADER 


:1F NOT: 
000622 EMADDR ,R4 
PC, TTOUT PRINT HEADER 


#MSG47,R4 
PRINT DRIVE CLEAR ERROR 
PRINT REGISTERS 
I SET PRINTED FLAG 
163026 : :SEE IF HALT ON ERROR 
IF NOT: BR 


H 
000666 : :SEE IF HAVE PRINTED 
DCEXX :1F SO: BR 
02000° 163006 #20000 ,aSwWR ;BRANCH IF ERROR 
DCE PRINTOUT DESIRED 


DCEXX: 
015344 000712 M #ORVCLR,SCOLP ;SET SCOPE LOOP ADDRESS 
015574 000137 016224 SCOPE :GO DO SCOPE LOOP 
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COMPOSITE ERROR CHECK SUBROUTINE t##eeneeee 


000240 : 
162714 T ads SEE IF ATA SET 
SO: BR 


ATTA : 
021714 000700 #MSG32, TEMPS 
ATTP sELSE PRINT ERROR 
040000 162674 : — ;SEE IF COMPOSITE ERROR SET 


ATTB :1F SO: BR 
021676 000700 #4SG31, TEMPS 
ATTP sELSE PRINT ERROR 
000001 : #1,R3 SET TEST BIT 
021732 000700 #MSG33, TEMPS 
000624 oR4 GET DRIVE NUMBER & BRANCH 
:1F DRIVE 0 
:POSITION TEST BIT 
sSEE IF _DONE 
IF NOT: BR 
162634 : ;SEE IF “ATTEN SUMMARY SET 
IF NOT ll 
PC sELSE RETUR 
020000 162664 : #20000, aSwWR :SEE IF PRINT INHIBIT 
ATTX :1F SO: BR 
000620 HDORFL SEE IF DONE HEADER 
ATTPA IF SO: BR 
000622 EMADDR ,R4 
PRINT HEADER 


PRINT ERROR TYPE 
PRINT REGISTERS 
SET PRINT FLAG 
I SET HEADER FLAG 
162614 : :SEE IF HALT ON ERROR 
B :1F NOT: BR 


H 
000666 : 7SEE IF DONE PRINT 
B F SO: BR 


ATTXX il 
020000 162574 :BRANCH IF NO ERROR 
BE ATTP PRINTOUT DESIRED 
000666 : :CLEAR PRINT FLAG 
016002 000207 R ; RETURN 
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016220 


016224 


016250 


012737 


000137 


000240 


000177 


000001 


000666 
020000 


000620 


000622 
017334 
000001 
000672 
017334 
000736 


021240 
017334 


017462 
021247 
017334 


017462 
004000 
021311 
017334 
000702 
017462 
000666 


162400 


000666 
020000 


000736 
016224 


040000 


162436 


000736 


162542 


000620 


162434 


162360 


162334 
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LOGIC TEST REGISTER BIT ERROR SUBROUTIINE*teteneeee 


LTGER2: #1,PEXFL 
LTGER1: 
PFLG 
#20000, aSWR 
B LTG1X 
LTGIA: HDRFL 
LTG1B 
EMADDR ,R4 
PC, TTOUT 
LTG1B: #1, HORFL 
ERADD ,R4 
PC, TTOUT 
PEXFL 
LTGIT 
#MSG12,R4 
PC, TTOUT 
R1,R3 
PC,OCTP 
#MSG13.R4 
PC, TTOUT 
R2,R3 


PC,OCTP 
#4000, aswR 
LTGIC 
#MSG16,R4 
PC, TTOUT 
ITCNT,R3 
PC,OCTP 


LTGIC: PFLG 
LTG1X: 
@SWR 


LTG1X1 
H 
LTG1X1: : PFLG 


LTG1XX 
#20000, aSwR 
LTGIA 


B 
LTG1XX: 
C 


PEXFL 
SCOPE 


SET FLAG 


CLEAR PRINT FLAG 
:BRANCH IF ERROR 
PRINTOUT DESIRED 
SEE IF PRINT HEADER 
:1F NOT: BR 


PRINT HEADER 
; SE 


T FLAG 


PRINT ERROR CODE 

SEE IF PRINT EXPT-RCVD 
7; 1F NOT: BR 

PRINT EXPT TAG 

PRINT EXPT 

PRINT RCVD TAG 


PRINT RCVD 


PRINT ITERATION 


:1F NOT STOP ON ERROR: BR 


7 IF HAVE PRINTED: BR 


:CLEAR EXPT-RCVD FLAG 
:GO TO SCOPE 


SCOPE LOOP ON ERROR SUBROUTINEttteterene 


#40000, aSWR 
1$ 

PC 

(SP)+ 


aScoLP 


:SEE IF LOOP ON ERROR 
:1F SO: BR 
ELSE EXIT 


RESET STACK 


;LOOP ON ERROR 


SEQ 0090 
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016324 
016326 
016332 
016336 
016340 
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032777 


000110 


000240 


000137 
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004000 
000702 
001016 
000702 
000762 


162372 


022102 
017334 


002344 


162306 


000606 


nN 7 
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ITER: 
1$: 
23: 


SEQ 0091 


s TEST ITERATION SUBROUTINEtteteeeeee 


#4000, aSWR SEE IF ITERATIONS 
2$ ;I1F SO: BR 


il : 

;CLEAR ITERATION COUNTER 

sELSE EXIT 

:NO SUBTEST ITERATIONS ON FIRST PASS 


ITC BUMP COUNTER 

ITCNT, I TAMT SEE IF DONE ALL 

1$ :1F SO: BR 

(SP)+ RESET STACK 

@ITRLP,RO SET ITERATION POINTER 
(RO) :GO ITERATE 


INTERVENTION INHIBI Teeteeeene 
#hSG43,R4 

PC, TTOUT 3;GO PRINT INHIB MSG 
TSCD2 ;RETURN TO SCHED 
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016344 


~ 2016370 
0: 


016372 
016376 
016404 


016406 
016412 
016420 


016422 


016604 


000207 


013746 
012737 
000410 


013746 
012737 
000402 


013746 


000207 


000040 
000624 
000664 


000776 
001400 


000776 
002000 


000776 
000040 
000624 
000664 
000776 
174377 
001400 


000040 


000040 


000007 
000200 


020000 


000776 
000002 


000025 
000200 


000011 
000776 


000776 


000776 


162064 
162056 
162072 


162026 


162014 


161772 
161776 


161766 


161776 
161750 


161726 
161732 


161710 


8 
MACY11 30(1046) 13-JUN-78 


8 
13:39 PAGE 92 


S INITIALIZE SUBROUTINE teeeeereese 


INIT1: 
INIT2: 


#40,aCs 
DRVN,@CcS 
SLVN,a@TC 
PC 


: INIT 

SELECT DRIVE 
SELECT SLAVE 
; RETURN 


ROUTINES TO INITIALIZE SLAVE. THESE ROUTINES PLACE THE SLAVE 
: IN PROPER STATUS FOR THE CALLING TEST. INIT3 PLACES THE SLAVE IN 


:NRZ MODE AND OFF BOT; 


SET SLAVE IN NRZ OFF BOT 
IT3: V UDES,-(SP) 
#1400, UDES 

INITS 


SET SLAVE IN PE OFF BOT 

INIT4: MOV UDES ,-(SP) 
MOV #2000 ,UDES 
BR INITS 


INIT4 PLACES THE SLAVE IN PE MODE AND OFF 
;BOT. IF THE SLAVE IS IN THE PROPER STATUS ON ENTRY NO ACTION IS TAKEN. 


SAVE TEST’S UNIT DESCRIPTION 
;SET UNIT DESCRIPTION = NRZ 
3GO TO INITS ROUTINE 


SAVE TEST'S UNIT DESRIPTION 
SET UNIT DESRIPTION = PE 
G0 DO IT 


; THIS ROUTINE IS ENTERED AT INIT WHEN THE CALLER HAS SETUP UDES. 
31T IS ENTERED AT INITS WHEN sae 7 INIT3 OR INIT4 HAS SET UP UDES. 


INIT MOV UDES ,~(SP) 

INITS: #40,aCcs 
DRVN, acs 
SLVN,@TC 
UDES,-(SP) 


#174377, (SP) 
+ aeichaatide 


1 
#40,aD0S 
4$ 


2$ 
#40,aDS 
4$ 


#7,aC1 
#200,a0S 


$ 
#20000,aDS 
3$ 
UDES,aTC 
e s 


e 


#25,aC1 
ese0.008 


5 

#11,aC1 
(SP)+,UDES 
PC 


SAVE TEST’S UNIT DESRIPTION 
INIT CONTROLLER 
:SELECT TMO3 DRIVE 
SELECT TU45 SLAVE 
GET SLAVE DESCRIPTION 
CLEAR ALL BUT DENSITY SELECT BITS 
BRANCH IF REQUESTING PE MODE 


;BRANCH IF SLAVE IS IN NRZ MODE 
7 (PES = 0) 


BRANCH IF SLAVE IS IN PE MODE 


REWIND SLAVE 
sWAIT FOR READY 


WAIT UNTIL PIP CLEARS 


LOAD SLAVE DESRIPTION 
BRANCH IF NOT AT BOT 


ERASE TO GET OFF BOT 
WAIT FOR READY 


RESET DRIVE 
+t Mey UNIT DESRIPTION 
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016654 
016656 
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017010 
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000240 


000207 


000240 
013716 
000002 


017746 


000002 
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017012 


000670 


161704 
000200 
000003 


001416 
161652 


000200 
000001 


000176 


177570 
020206 
022704 
017334 
020230 
000007 


000176 
020110 


000570 
000570 


000570 


C 
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;MANUAL INSTRUCTION SUBROUTINEtteeeeeeee 


PC, TTOUT 

#AASGO,R4 

PC, TTOUT 

yh 
R 


PC,TTR 
PC 


PRINT INSTRUCTION 
PRINT REPLY 


AWAIT REPLY 
sEXIT 


3MAG TAPE INTERRUPT HANDLEReteeeeenee 


oP 
MOV RTRN, (SP) 
RTI 


;SET RETURN FROM INTERUPT ADDRESS 
TURN 


sTTY INTERRUPT HANDLER*ettteteeee 


aTKB,-(SP) 
#200, (SP) 
#3, (SP) 

1$ 


CHNFLG 
1$ 
aPSw 


a#200 
#1, (SP) 
2$ 


#SWREG, SWR 
3$ 


#177570,SWR 
PC,.SAVE 
#MSG63,R4 
PC, TTOUT 
PC,.RESTORE 
#7, (SP) 

4$ 


#SWREG,SWR 
PC, GTSWR 
(SP)+ 


GET CHARACTER 
:CLEAR PARITY BIT 
;BRANCH IF NOT CONTROL C 


: INHIBIT C IF IN CHAIN MODE 
CLEAR PSW 


RESTART 
:BRANCH IF NOT A 


;BRANCH IF USING HARWARE SWR 


: INVOKE HARDWARE SWR 
SAVE REGISTERS ON THE STACK 
TYPE "HARDWARE SWR IN USE’ 


BRANCH IF NOT G 


: INVOKE SOFTWARE SWR 
:GET SWITCHES 

;POP CHARACTER OFF STACK 
7 RETURN 


SEQ 0093 
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017012 


017204 
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010146 


006300 


000674 
017272 
000003 
000200 
000015 


000674 


000025 


022632 
017334 


000177 


022634 
017334 
000060 


017252 
000070 


017252 
000674 
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000616 


000616 


000616 


000616 


000616 


000616 
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SEQ 0094 


FERRARA RARER ARATE AERA AE AERA TAAAAAAAAKERAAAEREREEE 


TTY ENTRY SUBROUTINE: 


STHIS SUBROUTINE IS USED BY THE TEST CONDITION 
ENTRY ROUTINE TO READ THE RESPONSE ENTERED 
:AT THE TTY AND CHECK THEM FOR LEGALITY AND 
ALL RESPONSE MUST BE TYPED IN OCTAL 
3(0-7) AND MUST FALL WITHIN THE LIMITS SET BY 
THE CALLING ROUTINE. 

:I1F AN ENTRY IS ILLEGAL OR OUTSIDE THE LIMITS, 
A QUESTION MARK IS TYPED (?) AND THE RESPONSE 


sLIMITS. 


sMAY BE 


REENTERED. 


ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 
sMAY BE TERMINATED AT LESS THAN SIX BY TYPING A 
CARRIAGE RETURN 


FURR AREA EAE RET E AAA AEAEAAAEAETAAARAARAAARAAAARARKEEERE 


R1,-(SP) 
(SP) ,R1 
TEMP1 

RO 
PC,TTIN 
#3,T1B 
11$ 


a#200 
#15,TI1B 
2$ 


TEMP1 
9$ 


6$ 
#25,T1B 
21$ 
#MSG59,R4 
PC, TTOUT 
10$ 


0 
#MSG60,R4 
enna 


1$ 
#60,TIB 
4$ 


SAVE CHARACTER COUNT 
RESTORE CHARACTER COUNT (FOR U) 
CLEAR FIRST CHARACTER FLAG 


:GO READ CHARACTER 
BRANCH IF NOT C 


s RESET 
;RESTART PROGRAM 
; SEE ba CR 


:1F NOT: BR 
:SEE TF “FIRST CHARACTER 
SO: BR 


BRANCH IF NOT CONTROL U 
TYPE <CR><LF> 


BRANCH IF NOT ‘RUBOUT' 
REMOVE LAST CHAR 


sTvPEe * * 

;DECREMENT CHARS RECEIVED COUNT 
;SEE IF CHAR IS LESS THAN 0 

ZIF NOT: BR 

sELSE GO TO ERR 

7SEE IF CHAR IS OGREATER THAN 7 
Z1F NOT: BR 

sELSE GO TO ERROR 

SET FIRST CHARACTER FLAG 


SHIFT 3 LEFT 
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017206 042737 177770 000616 
000616 
017252 
017252 


017250 000207 


MACY11 30(1046) 


E 
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#177770,TIB 
TIB,RO 


1$ 
RO,R2 
7$ 
TINER 
R3,R0 
8$ 
TINER 
RO, (R5) 


(SP)+ 
PC 
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SEQ 0095 


STRIP ASCII 
;LOAD CHARACTER 


:SEE IF _DONE 


:1F NOT: BR 
:SEE IF “EXCEEDED MAXIMUM LIMIT 
:I1F NOT: BR 

ZELSE 60 TO ERRO 

:SEE IF BELOW MINIMUM LIMIT 
:1F NOT: BR 

ZELSE GO TO ERROR 


;LOAD VALUE 


—— COUNT OFF STACK 
XI 
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017252 


017270 


017272 


017332 


017334 


017450 


017452 


017504 


012704 


000207 


005277 


000207 


112437 


000207 


012737 


000447 


TEST PART I 
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022042 
017334 


000020 


161274 
161270 


161264 
000200 


000616 
017434 


000614 
000043 


000045 
017434 
000015 
017434 
000004 


000614 
017434 


000012 
017434 
161136 
000614 


000001 
017702 


017702 
017662 


000616 
000616 
000614 


000614 
000614 


000614 


000614 


161130 


017702 
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OCTPE: 


OCTP: 
OCTPE1: 


SEQ 0096 


sTTY ENTRY ERROR SUBROUTINE tt eeeeeere 


#MSG40,R4 

;PRINT? 

POP CHAR COUNT OFF STACK 
#20, (SP) RESET SP TO START OF VALUE ROUTINE 
PC REDO VALUE ENTRY 


TTY READ SUBROUTINE ttttereeee 


aTks 
avKs 
1$ 


aTkB,TIB 

#200,TIB STRIP PARITY BIT 

TIB,TOB sMOVE CHAR TO TTY OUTPUT BFR 
* tons :AND ECHO IT 


OUTPUT SUBROUTINE tttteeeteeee 
(R4)+,TOB 


D0 FILLERS 


;CLEAR FLAG FOR LEADING ZERO 
7SEE IF NUMBER IS ZERO 

:1F NOT ZERO: BR 

SEE IF PRINT ALL 0 

:IF SO: BR 

ELSE PRINT ZERO 

; SPACE AND EXIT 
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032704 


000207 


042704 
001004 
905737 
001001 
000207 


005237 


000000 


100000 
000001 
017640 


017640 


017640 


017640 


017640 


017640 


017640 
000240 
017434 


177770 
017702 


017702 
000260 
000614 
017434 


TEST PART I 
:36 


000614 
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OCTPO: 


OCTPGO: 
OCTPG1: 


100000 ,R4 
CTP1 


;SEE IF MSD = 1 
:1F NOT: BR 


;PRINT 1 


;PRINT 0 


POSITION DIGIT 


;PRINT DIGIT 2 


sPRINT DIGIT 3 


PRINT DIGIT 4 


sPRINT DIGIT 5 
PRINT SPACE 
sEXIT 


FIRST CHAR FLAG 


SEQ 0097 
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sDATA CHARACTER OUTPUT SUBROUTINE t#tetaeeenee 


017704 012704 000010 : #10,R4 ;SET NUMBER TO PRINT 
017710 000614 R3,TOB 
017714 160656 : aTPs 
017720 B 1$ 

017722 000200 000614 #200,T0B 
017730 2$ 

017732 000061 160640 #061,aTPB 
017740 3$ 

017742 000060 160630 : #060,aTPB 
017750 000614 3$: TOB 
017754 

017756 

017760 000207 


017762 013703 000700 : TEMP3,R3 
017766 S R3 
017770 017704 PC ,DOUT 
017774 000700 TEMP3.R3 
020000 017704 PC ,DOUT 
020004 000207 PC 


;TU45 SERIAL NUMBER PRINT SUBROUTINE***eeeeeee 
020006 010304 


3GET FIRST DIGIT 
020064 PRINT 


:GET SECOND DIGIT 
020064 ;PRINT 
3,R4 


020064 3 PRINT THIRD DIGIT 
020064 PRINT FOURTH DIGIT 
PC sEXIT 


RK 
000260 000614 SNPG: ;SET BASE = 0 
17776C B #177760,R4 MASK DIGIT 
000614 R4,T0B SET ASCII 
017434 PC,T0G TYPE DIGIT 
020106 000207 PC ;RETURN 





CZTU 


020110 


020204 
020206 


020226 


020230 


020250 


nen ott CONTROL LOGIC 
13-JUN-78 


022737 


000207 
010546 


000207 


012666 


000207 


TEST PART I 
09:36 


000176 
020206 


020230 


000014 


000014 


000570 


MACY11 30(1046) 


I 
13-JUN-78 


8 
13:39 PAGE 99 


SEQ 0099 


sROUTINE TO LOAD CONTENTS OF SOFTWARE SWITCH REGISTER. 
z1F A sar pe G ( G) IS TYPED THE SOFTWARE SWITCH REGISTER IS LOADED 


GTSWR: 


1$: 


— 


PC,.SAVE 
#SMSWR,R4 
PC, TTOUT 
aSwWR,R3 

PC ,OCTPE 
#SMNEW ,R4 
PC, TTOUT 
SWR,RS 


#7,R1 
#177777,R2 
#0,R3 


PC,TTR 
es 


RTS C 
;;ROUTINE TO SAVE REGISTERS ON The STACK 
-SAVE: MOV %5,-(SP) 


0,-(SP) 
14 (SP) ,=(SP) 
PC 


;BRANCH IF SOFTWARE SWR 

:NOT INVOKED 

7 SAVE REGISTERS ON THE STACK 
TYPE "SWR = ' 


GET CURRENT VALUE 
AND TYPE IT 
ASK FOR NEW VALUE 


sNEW VALUE WILL BE RETURNED IN (R5) 
sLIMIT 10 7 CHARACTERS 
;LIMIT RESPONSE TO BETWEEN 
30 AND 177777 
GET RESPONSE 
: RESTORE REGISTERS 
RETURN TO CALLER 


3:R5 IS SAVED AT 12(SP) 

7:R4 1S SAVED AT 10(SP) 

33:R3 IS SAVED AT 6(SP) 

3:R2 IS SAVED AT 

::R1 IS SAVED AT 

3:RO IS SAVED AT 

3;PUSH RETURN PC ON THE STACK 
7 RETURN TO CALLER 


:;ROUTINE TO RESTORE REGISTERS SAVED ON THE STACK 


- RESTORE : MOV 
MOV 


(SP)+,14(SP) 
(SP)+,%0 
(SP)+,2%1 
(SP)+,%2 
(SP)+,2%3 
(SP)+,%4 
(SP)+,2%5 

PC 


::STORE RETURN PC ON STACK 


7 RETURN 


SMESSAGE TABLE tteteneeee 


020252 022445 046524 031460 MSG1: .ASCII /%XTMO3-TU4S CONTROL LOGIC TEST- PART I (CZTUOAO)/ 


-ASCII /%***ASSURE TAPE IS AT BOT#**/ 


047502 


020366 052045 050131 020105 -ASCII /2ZTYPE <CR> TO TERMINATE RESPONSE & C TO RESTART2#/ 





TMO3/TUS4S CONTROL ca | TEST PART I 


CZTUOA.P11 
020374 


021046 


13-JUN-7 
041474 


09:36 
037122 


040524 
044522 


052040 
047105 


040524 
047117 


052103 
030115 


042524 


052040 


052122 
042526 
2 


047117 
051117 
6 


051505 
042524 


052116 
042455 


042105 


020063 
052103 


047055 
041505 


026504 
054105 


053101 


047504 
020122 


052123 


MACY11 30(1046) 


«ASCII 


-ASCII 


-ASCII 


J 8 
13-JUN-78 13:39 PAGE 100 


/ZORIVE NUMBER OR (CR) WHEN DONE #/ 


/ZZFOR DRIVE ADDRESS TEST;/ 


/% ENTER EXPT DRIVE NUMBER, ALL OTHERS SHOULD BE NON-EXISTANT.#/ 


/ZNON-EXIST DRIVE #/ 


/ZRH DETECTED #/ 


/ZTMO3 DETECTED #/ 


/EXPT=NOT RECVD#/ 


/RCVD-NOT EXPT#/ 


/ZSLAVE NUMBER OR (CR) WHEN DONE #/ 


/ZZFOR SLAVE ADDRESS TEST;/ 


SEQ 0100 





TMO3/TU4S5 CONTROL LOGIC TEST PART I 
13-JUN-78 09:36 


CZTUOA.P11 


021470 


043445 


042440 


053101 


042522 
047117 
020123 

043 
051127 
047503 
051525 
021440 
050130 


041522 


020122 
032040 


051115 


051101 


047507 
047040 
052105 
020117 


052116 


047101 


026516 
020124 
020105 


042101 
020124 
040520 


052111 
052116 
050040 
020124 
042126 


044502 
030055 


041040 
032461 


051105 


041040 
031061 


044502 
026465 


020116 
041040 
026465 
041440 


041040 


020124 


041040 
052117 
021440 
044502 


k 8 
MACY11 30(1046) 13-JUN-78 13:39 PAGE 101 


MSG9: 


MSG10: 


MSG11: 


MSG12: 
MSG13: 
MSG14: 


MSG15: 


MSG16: 
MSGi&: 


MSG19: 


MSG20: 


MSG21: 


MSG22: 


MSG23: 


-ASCII 


-ASCII 


-ASCII 


-ASCII 


ASCII 
ASCII 
-ASCII 


-ASCII 


-ASCII 
-ASCII 


-ASCII 


-ASCII 


/% ENTER EXPT SLAVE NUMBER, ALL OTHERS SHOULD BE NON-EXISTANT.#/ 


/ZNON-EXIST SLAVE #/ 


/ZREAD CONT BUS PAR #/ 


/ZWRITE CONT BUS PAR #/ 


/ EXPT #/ 
/ RCVD #/ 
/ZMR BITS 4-0#/ 


/ZMR BITS 15-78/ 


/ZITER: #/ 
/ZTC BITS 12-0 #/ 


/ZFC BITS 15-0 #/ 


/&ZFUN CODE BITS 5-1 OF C1 #/ 


/%GO0 BIT NOT CORRECT AT START #/ 


/%GO BIT NOT SET #/ 


/%G0 BIT NOT RESET BY INIT #/ 


SEQ 0101 





TH 
CZ 


TMO3/TU4S CONTROL LOGIC TEST PART I 
13-JUN-78 09:36 


CZTUOA.P11 
021476 


022132 


020124 
042522 
054502 
020124 

045 
047516 


044116 


047516 


051440 


040524 
051440 


020123 
047516 
020124 
041523 
051440 


042522 
051440 


040514 
051440 


041523 
051440 


021440 


040522 
040515 


041111 


020124 
020124 
044516 


020131 


047507 
044440 


052105 


047040 
052105 


044502 


052105 


047040 
052105 


047040 
052105 


047040 
052105 
020104 
051501 


042101 
045503 


052516 


052111 


MACY11 30(1046) 


MSG24: 


MSG25: 


MSG25A: 


MSG26: 


MSG27: 


MSG30: 


MSG31: 


MSG32: 


MSG33: 


MSG34: 


MSG35: 


MSG36: 


MSG37: 


MSG40: 
MSG41: 


MSG42: 


MSG43: 


-ASCII 


ASCII 


-ASCII 


-ASCII 


-ASCII 


-ASCII 


-ASCII 


-ASCII 


ASCII 


ASCII 


-ASCII 


«ASCII 


-ASCII 


-ASCII 
-ASCII 


-ASCII 


-ASCII 


L 8 
13-JUN-78 13:39 PAGE 102 


/ZDRY NOT SET BY INIT #/ 
/Z0RY NOT RESET BY GO=1#/ 
/Z0RY NOT SET BY GO=08/ 

/%2NO INTERRUPT RETURNED#/ 


/ZBAD STATUS#/ 
/ZSN: #/ 

/ZERR NOT SET #/ 
/ZATA NOT SET #/ 
/ZAS BIT NOT SET #/ 
/%SC NOT SET #/ 
/ZTRE NOT SET #/ 
/ZSLA NOT SET #/ 


/%ZSSC NOT SET #/ 


/? #/ 
/ZZEND OF PASS #/ 


/ZDEAD TRACK #/ 


/ZRMANUAL TESTS (14-17) INHIBITED: HALT2/ 


SEQ 0102 





TA 
CZ 


mn 8 
TMO3/TU4S CONTROL LOGIC TEST PART I MACY11 30(1046) 13-JUN-78 13:39 PAGE 103 
CZTUOA.P11 13-JUN-78 09:36 SEQ 0103 


022140 042105 —— 040510 
046105 /RESELECT AND PRESS CONTINUEZ#/ 


MSG44: /ZREGISTER START: #/ 


MSG45: . /ZVECTOR ADDRESS: #/ 


MSG46: . /%CS1 wl BA FC CS2 DS ER 


020040 


046440 ° MR TC2#/ 
020040 


051040 be /ZNOT RESET BY DRIVE CLEAR#/ 
041040 
053111 

046103 040505 


050114 040510 ts /ZALPHA NOT SET#/ 
051440 


054105 t « /ZUNEXPECTED ERROR BITS#/ 


046040 fs /%BAD LRC #/ 
041440 ar /%BAD CK #/ 
052524 t ow /ZSETUP ERROR: CHECK WRAP O WITH TEST 50#/ 


/RSTATIC TESTS ONLY: #/ 
046116 


020063 P /%ZTMOS DRIVE: #/ 
053111 035105 


022614 052045 032125 020065 t « /%TU4S SLAVE: #/ 





TMO3/TU4S CONTROL LOGIC TEST PART I 


CZTUOA.P11 
022622 


022726 


13-JUN-78 


046123 
0 


042523 


09:36 
053101 


046505 


052123 


051101 
020105 
047111 
021445 


035105 


053117 


042105 


053504 
053523 
052440 


MACY11 30(1046) 


nN 8 
13-JUN-78 13:39 PAGE 104 


yy 
#/ 
/ZREMOVE TMDP FROM SLAVE TO BE TESTEDZ#/ 


/ZHARDWARE SWR IN USEZ#/ 


SEQ 0104 





TMO3/TUSS CONTROL LOGIC TEST PART I 
CZTUOA.P11 13-JUN-78 09:36 


022732 022445 047514 044507 


044122 
044507 


034470 031463 
047514 044507 


054455 
043517 


026465 
044507 


023410 034470 032460 054455 


8 9 
MACY11 30(1046) 13-JUN-78 13:39 PAGE 105 


STEST HEADERteeeeeeeee 
MSLT1: .ASCII /2ZZLOGIC TEST 1: DRIVE ADDRESSING (M8939 RH)#/ 


/ZZLOGIC TEST 2: REGISTER ADDRESSING (M8939 RH)#/ 


/ZZLOGIC TEST 3: CONTROL BUS TEST (RH M8905-YB M8939)4/ 


/ZZLOGIC TEST 4: SLAVE ADDRESSING (M8905-YB M8933) #/ 


/ZZL0GIC MR BIT TEST (M8905-YB)#/ 


/%ZL0GIC TC BIT TEST (M8905-YB)#/ 


/ZZL0GIC FC BIT TEST (M8905-YB)#/ 


SEQ 0105 








RWMHMMMMMMAMMoOoooOoTVTVTVTVVT9T9CCTCTC9CCcC°C°oC0C9 9MFAFAAOOTF>y> YF YY PP Prrrrrr O- 


TMO3/TUSS CONTROL LOGIC 
13-JUN-78 


CZTUOA.P11 


024074 


024502 
045 


052123 


TEST PART I 
09:36 


034470 
047514 


024040 
047514 
042524 
035064 
040525 
052101 
051505 


047514 


0 
051505 
047514 


051505 
047514 


052101 


034463 
044507 


044122 
044507 


020124 
044507 


020124 
044507 


020124 


044507 
052123 
046440 
020114 
051525 


¢ 9 
MACY11 30(1046) 13-JUN-78 13:39 PAGE 106 


MSLT10: 


-ASCIT 


MSLT11: . 


MSLT12: . 


MSLT13: . 


MSLT14: . 


MSLT15: . 


MSLT16: . 


MSLT17: 


/ZZL0GIC TEST 10: 


/%ZL0GIC 


/%ZL0GIC 


/%ZZL0GIC 


/Z2ZL0GIC 


/ZZL0GIC 


/%ZL0GIC 


/ZZL0GIC 


FUNCTION BIT TEST (M8905-YB) #/ 


: GO BIT TEST (M8939) #/ 


: DRIVE READY BIT (M8939) #/ 


: INTERRUPT TEST (RH)&#/ 


: MANUAL STATUS TEST 14/ 


: MANUAL STATUS TEST 2#/ 


: MANUAL STATUS TEST 34/ 


: MANUAL STATUS TEST 44/ 


SEQ 0106 








Peer ere Pere er reer errr ere r rr rerr rrr rrr reer rrrrrrerrerrerrrrr Aas 


TMO3/TU4S CONT 
CZTUOA.P11 


024102 


024556 


ROL LOGIC 
13-JUN-78 


052040 


TEST PART I 


09:36 
051505 
047514 


030071 
046045 


051040 


046045 
052040 


020124 
044507 


024466 
043517 


051040 
043517 


024510 


043517 
051505 


. 9 
MACY11 30(1046) 13-JUN-78 13:39 PAGE 107 


MSLT20: 


-ASCII 


MSLT21: . 


MSLT22: . 


MSLT23: . 


MSLT24: . 


MSLT25: . 


MSLT26: . 


MSLT27: . 


MSLT30: . 


MSLT31: 


/ZZLOGIC TEST 20: ILLEGAL FUNCTION TEST (M8939)4/ 


/ZZL0GIC 


/%ZL0GIC TEST 


/ZZL0GIC TEST 


/%ZL0GIC TEST 


/%ZL0GIC 


/ZZL0GIC TEST 


/%ZL0GIC 


/ZZLO0GIC 


/ZZL0GIC 


30 


31 


: RMR(M8939) 4/ 


: CPAR(M8939) #/ 


: FMT(M8905-YB M8906) 4/ 


: DPAR(M8906 RH)A#/ 


: NEF (M8939) #/ 


: FCE (M8939) 4/ 


> ILR(M8939) #/ 


:DTE (M8906 RH)#/ 


> OP1(M8933)a/ 


SEQ 0107 





TMO3/TUSS CONT 
CZTUOA.P11 


4222 024564 


4277 025240 


ROL LOGIC 
13-JUN-78 


020124 


020124 


TEST PART I 


09:36 
030463 


026465 


047514 
042524 
035066 
046450 
046440 
054455 


046045 


034470 
047514 


052040 
031064 


020072 
034115 


041131 
044507 
052123 
043040 
034470 
034470 
024502 


043517 


054455 
043517 


031063 
044507 


031471 


043517 
051505 
020072 


MACY11 30(1046) 


MSLT32: .ASCII 
MSLT33: .ASCII 
MSLT34: .ASCII 


MSLT35: .ASCII 


MSLT36: .ASCII 


MSLT37: .ASCII 


MSLT4O: .ASCII 


MSLT41: .ASCII 


MSLT42: .ASCII 


E 
13-JUN-78 


/%ZL0GIC 


/%ZL0GIC 


/ZZLOGIC 


/%ZL0GIC 


/%ZL0GIC 


/%ZL0GIC 


/%ZL0GIC 


/%ZL0GIC 


/%ZL0GIC 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


TEST 


32: 


33: 


34: 


35: 


36: 


37: 


40: 


41: 


42: 


9 
13:39 PAGE 108 


UNS (M8939) #/ 


PIP (M8939) #/ 


PES (M8928) #/ 


SAC (M8933 M8905-YB)a/ 


FCS(M8933 M8905-YB)4/ 


ACCL(M8933 M8905-YB)#/ 


PE TAPE MARK (M8932) #/ 


NRZ TAPE MARK (M8934) 4/ 


CRC (M8934) &/ 


SEQ 0108 


F 9 
bs lg omit LOGIC TEST PART I MACY11 30(1046) 13-JUN-78 13:39 PAGE 109 
ZTUOA.P11 13-JUN-78 09:36 SEQ 0109 


025246 051103 024103 034115 
031471 043 


045 
041511 


043517 MSLT43: . /EZZLOGIC TEST 43: LRC(M8934)a/ 


MSLT44: . /ZZL0GIC : CORRECTABLE DATA (M8932 M8901)#/ 


030071 024461 
046045 043517 ts /ZZL0GIC : INCORRECTABLE DATA (M8932 M8934) 4/ 


031471 


043517 MSLT46: . /Z2ZL0GIC : PEF (M8932) 4/ 


MSLT47: . /Z2ZL0GIC : FC OVERFLOW (M8905-YB)#/ 


MSLT50: . /%2ZL0GIC : NEF WHEN WRITE PE ON NRZ SLAVE#/ 


040514 042526 
046045 043517 MSLT51: . /%2L0GIC : NEF WHEN WRITE NRZ ON PE SLAVE#/ 


040514 042526 
025722 





. 
THOS se Amat LOGIC oe I MACY11 30(1046) 13-JUN-78 13:39 PAGE 110 


/ 
CZTUOA. 13-JUN-78 SEQ 0110 


sMANUAL INSTRUCTION* tteereeere 


025723 045 054524 042520 MMSGO: .ASCII /ZTYPE CR WHEN READY; #/ 
0 044127 
040505 
oft 3 MMSGI: . /ZZMOUNT TAPE WITH NO WRITE RING, LOAD TO BOT, SET TO ON LINE: #/ 
020110 
044522 
047111 
040517 
041040 
042523 
047440 
044514 042516 


052105 052040 : a /ZSET TO OFFLINE: #/ 


/ZMOVE FORWARD TO EOT, USING THE TU45 MAINTENENCE SWITCH, SET ONLINE: #/ 


044514 
047111 Fs /ZREWIND AND UNLOAD TAPE, REINSTALL WRITE RING, AND/ 


026107 040440 
053117 020105 . /ZMOVE JUST FORWARD OF BOT USING THE TU45 MAINTENENCE SWITCH,/ 


/%ZAND SET TO ONLINE#/ 
044514 042516 


6 
026374 





H 9 
TMO3/TU4S CONTROL LOGIC TEST PART I MACY11 30(1046) 13-JUN-78 13:39 PAGE 111 
CZTUOA.P11 13-JUN-78 09:36 SEQ 0111 


026375 045 046445 +g abe MMSG5: .ASCII /2Z2MOVE TAPE TO BOT; ON LINEM/ 


047502 
020116 
026424 044514 042516 043 





. 
TMO3/TU4S CONTROL LOGIC TEST PART I MACY11 30(1046) 13-JUN-78 13:39 PAGE 112 
CZTUOA.P11 13-JUN-78 09:36 SEQ 0112 


3 TAG MESSAGE 
026431 re 020122 : ASCII /ZSWR 
042516 020127 >: .ASCII / NEW 
046133 020101 : ASCII /2SLA 
047502 020124 : ASCII = /%B0T 
046524 021440 > ASCII = /ZTM #/ 
053504 020116 TmsS: “ASCII /ESDUN #/ 
042520 020123 > ASCII = /2PES #/ 
051523 020103 : ASCII = /2SSC #/ 
051104 020131 > ASCII = /ZDRY #/ 
050104 020122 : ASCII /Z0PR #/ 
052116 020114 > ASCII /2NTL #/ 
047505 020124 :  .ASCII /2EOT #/ 
051127 020114 >: ASCII = /RWRL #/ 
047515 020114 : ASCII /2MOL #/ 
044520 020120 : ASCII /2PIP #/ 
051105 020122 >: .ASCII = /ZERR #/ 
052101 020101 >: ASCII /ZATA #/ 
046111 020106 >: ASCII /ZILF #/ 
046111 020122 : ASCII /2ZILR #/ 
046522 020122 >: .ASCII /2ZRMR #/ 
050103 051101 >: .ASCII /2ZCPAR #/ 


052115 021440 > ASCII /ZFMT #/ 
04052C 020122 : .ASCII /ZDPAR #/ 


047111 020103 >: ASCII /2ZINC #/ 
050126 020105 : ASCII /2VPE #/ 
042520 020106 >: ASCII /2PEF #/ 


051114 020103 >: .ASCII /2LRC #/ 
026706 





J 9 
TMO3/TU4S CONTROL LOGIC TEST PART I MACY11 30(1046) 13-JUN-78 13:39 PAGE 113 
CZTUOA.P11 13-JUN-78 09:36 SEQ 0113 


026707 051516 020107 tw /ENSG #/ 
041506 020105 t « /2FCE #/ 
051503 021440 Sa /2CS #/ 
a /Z1TM #/ 
/ENEF #/ 
/ZOTE #/ 
/Z0P1 #/ 
/ZEWRITE OPI #/ 
TMS33B8: . /ZREAD OPI #/ 
TMS33C: . / OCCURED TO SOONZ#/ 
047517 022516 
041517 052503 TMS33D: . / OCCURRED TO LATER#/ 
042105 052040 
040514 042524 
044501 042514 TMS33E: .ASCII / FAILED TO SET%#/ 
047524 051440 
021445 
051516 021440 TMS34: .ASCII /2ZUNS #/ 
051117 020122 TMS35: .ASCII /2ZCORR #/ 
051103 020103 TMS36: .ASCII /2%CRC #/ 
040523 020103 TMS37: .ASCII /%SAC #/ 
041506 020123 TMS38: .ASCII /2FCS #/ 


041501 046103 TMS39: .ASCII /ZACCL #/ 


045 
027140 021440 


-EVEN 
WRITE BUFFER 


027142 000100 


027200 177777 





kK 9 
TMO3/TU4S CONTROL LOGIC TEST PART I MACY11 30(1046) 13-JUN-78 13:39 PAGE 114 
CZTUOA.P11 13-JUN-78 09:36 SEQ 0114 


027202 177777 
177777 
177777 


027340 177777 


;READ BUFFER 


027342 000100 
027342 000000 
027344 000000 
027346 000000 





. * 
TMO3/TU4S CONTROL LOGIC TEST PART I MACY11 30(1046) 13-JUN-78 13:39 PAGE 115 
CZTUOA.P11 13-JUN-78 09:36 SEQ 0115 


027350 000000 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


027526 000000 





a 9 
TMO3/TUSS CONTROL LOGIC TEST PART I MACY11 30(1046) 13-JUN-78 13:39 PAGE 116 
CZTUOA.P11 13-JUN-78 09:36 SEQ 0116 


027530 000000 
0 000000 
000000 
000000 
027540 000000 


WRAP AROUND MESSAGES*eet#* 
027542 042045 052101 020101 WMSG27: .ASCII /2DATA PAT:#/ 
040520 043 
045 WMSG31: .ASCII /2%EOR CLEAR DID NOT CLEAR GO%#/ 
046103 
044504 


020124 
020122 047507 021445 


000000 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


027726 000000 





nN 9 
TMO3/TU4S CONTROL LOGIC TEST PART I MACY11 30(1046) 13-JUN-78 13:39 PAGE 117 
CZTUOA.P11 13-JUN-78 09:36 SEQ 0117 


027730 000000 


030056 
030470 000000 
000001 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
u 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0° 





B 10 
CONTROL LOGIC TEST PART I MACY11 30(1046) 13-JUN-78 13:39 PAGE 119 
13-JUN-78 09:36 SYMBOL TABLE SEQ 0118 


020110 LT10E1 004426 003216 007660 


0 0 
000752 004406 003030 007620 LT411T 012002 





C 10 


C 10 
TMO3/TU4S CONTROL LOGIC TEST PART I MACY11 30(1046) 13-JUN-78 13:39 PAGE 120 
CZTUOA.P11 13-JUN-78 09:36 SYMBOL TABLE SEQ 0119 


012176 003714 021470 MSLT21 024171 030470 


0 023006 0 
014140 021447 MSLT20 024112 000566 001326 





TMO3/TUGS CONTROL LOGIC TEST PART I 


CZTUOA.P11 
TAS] 026451 
TMS10 §=©.026537 
TAS11 §=026545 
TMS12 26553 
TMS13 = 026561 
TMS14 026567 
THS15 = 0026575 
TMS16 =. 0026603 
TMS17 =: 026611 
TMS18 026617 
TMS19 = 0026625 
TMS2 026457 
TMS20 = 026633 
TMS21 026642 
TMS22 026650 
TMS23. 026657 
TMS24 026665 
TMS25 026673 
TMS26 =: 026701 
TMS27 =©026707 
ABS. 030472 


ERRORS DETECTED: 


13-JUN-78 09:36 


are 


v 


0 


CZTUOA.SEQ/SOL_CZTUOA.P11 
RUN-TIME: 34 61 4 SECONDS 
RUN-TIME RATIO: 
CORE USED: 14K 


181/99=1.8 
(28 PAGES) 


026715 


026500 


026507 


000652 


D 10 
MACY11 30(1046) 13-JUN-78 13:39 PAGE 121 


000654 


000512 


001042 


020206 


SEQ 0120 


